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SUMMARY 

A  computer  program  which  simulates  life  and  reliability  of 
helicopter  transmissions  is  presented.  The  helicopter  transmissions 
may  be  composed  of  spiral  bevel  gear  units  and  planetary  gear  units  - 
alone,  in  series  or  in  parallel.  The  spiral  bevel  gear  units  may  have 
either  single  or  dual  input  pinions,  which  are  identical.  The 
planetary  gear  units  may  be  stepped  or  unstepped  and  the  number  of 
planet  gears  carried  by  the  planet  arm  may  be  varied.  The  reliability 
analysis  used  in  the  program  is  based  on  the  Weibull  distribution  lives 
of  the  transmission  components.  The  computer  calculates  the  system 
lives  and  dynamic  capacities  of  the  transmission  components  and  the 
transmission.  The  system  life  is  defined  as  the  life  of  the  component 
or  transmission  at  an  output  torque  at  which  the  probability  of 
survival  is  ninety  percent.  The  dynamic  capacity  of  a  component  or 
transmission  is  defined  as  the  output  torque  which  can  be  applied  for 
one  million  output  shaft  cycles  for  a  probability  of  survival  of  ninety 
percent.  A  complete  summary  of  the  life  and  dynamic  capacity 
results  is  produced  by  the  program. 
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INTRODUCTION 

In  the  helicopter  industry,  experimental  testing  programs  are 
used  to  measure  the  relative  merits  of  different  transmissions 
[1,2,3].  These  tests  are  costly  in  terms  of  time  and  resources.  The 
tests  should  be  complemented  with  computer  simulations  of  many 
possible  designs,  so  that  only  optimal  designs  are  brought  forward  to 
the  testing  stage  in  helicopter  transmission  development. 

This  report  describes  a  computer  simulation  program  which 
models  the  life  and  reliability  of  a  helicopter  transmission.  The 
computer  program  uses  the  lives  and  reliabilities  of  the  individual 
components  to  compute  the  life  and  reliability  of  the  transmission. 

The  life  and  reliability  models  are  based  on  the  assumption 
that  the  transmission  is  adequately  lubricated  and  well  designed. 
This  means  that  its  gears  have  sufficient  rims  and  are  made  of 
adequate  materials  so  that  premature  tooth  breakage  will  not  occur. 
Also,  it  is  assumed  that  the  tooth  form  geometry  and  lubricant  have 
been  selected  to  prevent  tip  scoring.  Both  of  these  failure  modes  can 
be  prevented  [4], 

However,  surface  pitting  is  not  preventable  due  to  the  lack 
of  a  surface  fatigue  endurance  limit  for  high  strength  gears.  As  with 
rolling  element  bearings,  gear  teeth  will  fail  eventually  in  surface 
pitting  even  in  a  well  designed,  well  lubricated  transmission. 


regardless  of  the  loads  [5-11].  Thus,  the  life  and  reliability  models 
for  spiral  bevel  gear  reduction  and  planetary  gear  units  are  based  on 
the  pitting  fatigue  life  and  reliability  models  for  the  bearings  and 
gears  in  the  transmission. 

In  this  program,  a  modular  approach  is  used  in  which  the 
force  and  motion  analyses  of  the  reduction  are  separated  from  the  life 
and  reliability  analyses.  The  dynamic  capacity  models  are  also 
separated  algebraically  from  the  prior  calculations.  In  this  way,  the 
calculations  can  be  performed  sequentially  and  the  complexity  and 
diversity  of  the  analyzed  transmissions  can  be  increased  greatly. 

The  computer  program  can  simulate  a  number  of  configurations 
of  spiral  bevel  gear  units,  dual  spiral  bevel  gear  units,  planetary 
gear  units  and  combinations  of  units.  The  eight  transmission 
configurations  analyzed  by  this  program  are  shown  in  figure  1. 
Configuration  3  is  found  in  the  OH-58  light  duty  helicopter  and 
consists  of  a  spiral  bevel  gear  unit  combined  with  a  planetary  gear 
unit.  Configuration  8  is  found  in  the  Black  Hawk  helicopter  and 
consists  of  parallel  spiral  bevel  units  combined  with  a  dual  spiral 
bevel  gear  unit.  The  power  is  then  transmitted  to  the  rotor  through  a 
planetary  gear  unit.  The  power  inputs  to  the  two  input  pinions  of  the 
dual  spiral  bevel  gear  unit  do  not  have  to  be  equal,  so  that  the  loss 
of  power  in  one  engine  can  be  simulated.  The  program  also  allows  the 
planetary  gear  unit  to  be  composed  of  stepped  or  unstepped  planet 
gears.  The  program  can  simulate  transmissions  at  different  power 
levels  and  load  duty  cycles.  The  program  can  calculate  the  lives  and 
dynamic  capacities  of  a  single  unit  or  the  transmission  as  a  whole. 


8.  Spiral  Bevel  &  Dual  Spiral  Bevel 


TRANSMISSION  POWER  FLOW 

In  a  helicopter,  power  is  typically  produced  by  a  turbine 

engine  oriented  horizontally  and  close  to  the  main  rotor  shaft.  The 

rotor  shaft  is  nearly  vertical  and  the  power  from  the  turbine  must  be 
transmitted  through  approximately  ninety  degrees.  The  transmission 
must  handle  a  speed  reduction  from  the  turbine  engine  to  the  rotor 
shaft  in  the  range  of  80:1.  To  accomplish  this  in  a  small  amount  of 

space,  spiral  bevel  gear  units  are  used  in  conjunction  with  planetary 

gear  units. 

In  the  analysis,  the  spiral  bevel  gear  units  and  planetary 
units  are  treated  separately.  Even  though  the  units  are  treated 
separately,  they  must  have  a  common  counting  base  to  allow  combinations 
of  lives  and  reliabilities.  In  helicopters,  a  significant  part  is  the 
output  rotor  shaft.  Therefore  the  common  counting  base  in  this  program 
is  the  output  torque  and  speed  of  this  rotor  shaft  which  is  unchanged 
fro*  design  to  design. 

In  helicopters,  a  common  configuration  is  a  spiral  bevel  gear 
unit  from  the  turbine  followed  by  a  planetary  unit  along  the  output 
shaft.  There  may  be  more  than  one  spiral  bevel  gear  unit  in  series  or 
parallel  and  there  may  be  more  than  one  planetary  gear  unit  in  series 
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along  the  output  shaft.  The  couplings  between  the  units  are  assumed  to 


be  splined,  only  able  to  transmit  torque  loads  between  the  units. 


Spiral  Bevel  Gear  Unit 


For  the  spiral  bevel  gear  unit  there  are  many  inputs  which 


define  the  geometry  [12].  In  figure  2,  the  geometry  which  is  required 


for  analysis  of  the  gear  mesh  is  shown.  The  main  measure  of  bevel  size 


is  the  cone  distance,  A0.  The  cone  distance  is  the  distance  from  the 


apex  of  the  bevel  cones  to  the  back  edge  of  the  tooth  face.  This 


distance  is  measured  along  the  pitch  line  of  the  two  pitch  cones  of  the 


mating  gears.  The  contact  face  width  of  the  gear  set  ,  f,  is  measured 


along  the  same  pitch  line. 


To  define  the  geometry  of  the  pitch  cones,  the  following  inputs 


are  required,  number  of  teeth  on  the  pinion,  Np,  number  of  teeth  on  the 
gear,  Ng,  and  the  shaft  angle.  The  shaft  angle  is  the  angle  between 
the  input  pinion  shaft  and  the  output  gear  shaft.  The  pitch  angles. 


which  are  half  the  cone  angle  of  the  gear,  are  related  by  these  inputs 


in  the  following  equations. 


sin  z 


tan  r. 


(Np/Ng)  +  cos  Z 


sin  z 


(Ng/Np)  +  cos  z 
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The  point  of  gear  contact  used  in  the  analysis  is  the  pitch  point.  The 
distance  from  the  apex  to  the  midpoint  of  the  face  locates  the  pitch 
point. 


The  pitch  diameters  of  the  equivalent  spur  gear  for  the  spiral  bevel 
pinion  and  gear  can  be  found  by: 

Dp  =  2  *  D0  *  sin  rp  (4) 

°g  =  2  *  Do  *  sin  rg  (5) 

Also  in  this  analysis,  the  teeth  in  the  mesh  at  the  pitch  point  are 

modeled  as  planar  spur  gears.  Figure  3  is  a  composite  drawing  showing 
the  bevel  and  reference  spur  gear.  The  diameter  of  the  reference 
planar  spur  gear  is  double  the  backcone  distance.  The  backcone 

distance  is  defined  as  the  perpendicular  distance  from  the  pitch  point 
at  the  midpoint  of  the  gear  face  to  the  centerline  of  the  gear  shaft. 
The  backcone  distance  of  the  pinion  and  gear  are  calculated  by: 

Bcp  =  tan  rp  *  0o  (6) 

Beg  =  tan  r g  *  D0  (7) 

In  addition  to  the  size  and  shape  of  the  pitch  surface,  the 
gears  are  defined  by  the  geometry  of  the  meshing  gears.  In  figure  4 
one  sees  a  spiral  bevel  gear  in  the  pitch  plane  which  is  tangent  to  the 
pitch  cones  at  the  line  of  contact. 


Reference  Spur  Gear 


Back  Cone  Distance 


^f\l\AAA/V\ 


In  the  figure,  the  spiral  angle,  f  ,is  shown  as  the  angle 
between  the  pitch  ray  and  a  tangent  to  the  circular  cutter  at  the 
mid-point  of  the  tooth.  This  angle  is  positive  for  right  hand  advance 
of  the  spiral  along  the  axis  of  the  gear  toward  the  cone  apex.  The 
figure  shows  a  right  hand  spiral.  In  the  spiral  bevel  mesh  the  pinion 
and  the  gear  must  have  the  same  spiral  angle  but  the  hands  of  the 
meshing  gears  must  be  opposite. 

The  diametral  pitch  of  the  teeth  is  defined  at  the  mid-tooth 

radius. 


2  *  D0  *sin  rg 


(8) 


It  can  be  noted  that  the  pitches  are  direct  functions  of  the  numbers  of 
teeth  on  the  gears  and  the  pitch  cone  geometry.  Figure  5  shows  the 

normal  tooth  geometry  at  the  mid-plane  of  the  tooth.  Figure  5 

corresponds  to  section  AA  in  figure  4.  The  normal  pressure  angle  *n, 
addendum  a^,  and  dedendum  d^,  are  shown  at  the  mid-plane  of  a  bevel 
tooth. 

The  direction  of  rotation  of  the  pinion  is  required  to  define 
the  loads  transmitted  at  the  point  of  gear  contact.  In  this  paper, 
clockwise  rotation  is  defined  looking  at  the  back  of  the  pinion  along 
the  pinion  shaft  toward  the  cone  apex. 

One  must  also  specify  the  bearing  supports  of  the  gears.  The 
two  bearing  conf igurations  most  commonly  used,  straddle  and  overhung, 

are  shown  in  figure  6.  In  both  cases  distance  A  is  the  distance  from 
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the  gear  to  the  bearing  closest  to  the  apex.  In  case  2,  distance  A 
takes  on  a  negative  value.  Distance  B  is  defined  as  the  distance  from 
the  gear  to  the  bearing  furthest  away  from  the  apex.  All  distances  are 
measured  from  the  mid-point  of  the  gear  to  the  mid-point  of  the 
bearing.  One  bearing  on  each  shaft  must  be  identified  as  a  thrust 

bearing  to  take  the  axial  thrust  loads  produced  by  the  bevel  gear  mesh. 

In  the  case  of  dual  inputs,  the  pinions  and  their  mounting  are 
considered  to  be  identical.  The  only  difference  can  be  the  load  levels 
applied  by  the  pinions.  Figure  7  shows  the  twin  input  bevel  in  the 
plane  of  the  two  input  shafts. 

Planetary  Gear  Unit 

For  the  planetary  gear  unit  one  must  define  whether  the  unit  is 
stepped  or  non-stepped  and  the  number  of  planets  carried  by  the  planet 
arm.  Figures  3  and  9  show  an  unstepped  and  stepped  planetary  gear 

unit,  respectively,  with  three  planet  gears.  For  the  planetary  units, 
the  sun  gear  is  the  input  shaft,  the  ring  gear  is  fixed  and  the  planet 
arm  is  the  output  shaft.  In  the  case  of  the  non-stepped  planetary  unit, 
the  number  of  teeth  of  the  sun  gear,  planet  gear,  and  ring  gear  are 
required.  Figure  10  shows  a  mesh  of  an  unstepped  planetary  gear  unit. 
In  the  case  of  a  stepped  planetary  unit,  the  number  of  teeth  on  the  sun 
gear,  planet-sun  gear,  planet-ring  gear,  and  the  ring  gear  are 
required.  The  planet-sun  gear  is  defined  as  the  planet  gear  meshing 
with  the  sun  gear  in  a  stepped  planetary  gear  unit.  The  planet-ring 

gear  is  the  planet  gear  meshing  with  the  ring  gear  in  a  stepped 

planetary  gear  unit.  Figure  11  shows  a  mesh  of  a  stepped  planetary 


gear  unit.  The  diametral  pitch  of  the  gears  in  each  mesh  must  be  known 
to  define  the  size  of  the  planetary  transmission.  The  diameter  of  the 
gears  is  found  from  the  diametral  pitch,  P<j  and  number  of  teeth,  N. 

0  «  N  /  Pd  (9) 

Due  to  the  motion  of  the  planetary  arm  carrying  the  planet 
gears,  each  component  will  not  see  the  same  number  of  load  cycles  as  it 
would  in  a  fixed  axis  reduction.  Table  1  gives  the  relationship 
between  one  output  revolution  and  the  load  cycle  of  each  component 
[13].  The  ratios  in  this  table  are  found  by  a  standard  planetary  gear 
motion  analysis. 

In  all  units,  the  mesh  material  strength  must  be  known  to 
calculate  the  dynamic  capacity  of  the  gear  tooth.  In  the  case  of  the 
bearings,  catalog  values  of  the  dynamic  capacities  must  be  given.  The 
Weibull  exponents  must  be  specified  for  each  component.  The  load-life 
exponent  must  be  specified  for  each  gear.  The  program  automatically 
assumes  an  exponent  of  3.0  for  ball  bearings  and  an  exponent  of  3.333 


TABLE  1 


Ratio  of  the  Number  of  Component  Load  Cycles 
to  One  Output  Shaft  Revolution 
PI  anetary  Gear  Un i t 


Component  I  Non-Stepped  I  Stepped 
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COMPONENT  LOADING 

The  load  on  each  component  can  be  calculated  from  the  applied 
input  torque  and  the  geometry  of  the  components.  Due  to  the  many 
configurations  of  bearing  and  gear  location,  no  single  formula  can  be 
used  to  calculate  the  component  load.  Instead,  a  series  of  steps  is 
required  to  obtain  the  component  load. 

Spiral  Bevel  Gear  Unit  Loading 

The  loading  on  the  spiral  bevel  gear  units  can  be  analyzed  by 
calculating  the  force  developed  in  the  gear  teeth.  This  force  can  be 
divided  into  three  orthogonal  components  shown  in  figure  12. 

These  forces  are  the  tangential  load,  Wt,  which  is  produced  by 
the  torque  on  the  gear  shaft  [12,14].  The  radial  load,  Wr,  and  the 
axial  load,  Wa,  are  produced  by  the  geometry  of  the  gear  teeth 
transmitting  the  tangential  load.  These  loads  are 

T0 

Wt  =  -  UO) 

D0*sin  r g 

Wt  *  (tan  *  cos  rg  +  sin  <p  *  sin  rg  ) 


cos  <l> 


(11) 


In  equation  11  and  12,  the  sign  of  the  last  term  changes  with 
respect  to  the  spiral  hand,  direction  of  gear  rotation  and  whether  the 
gear  is  driving  or  being  driven.  These  equations  are  valid  for  a 
driving  gear  with  a  right  hand  spiral  which  is  rotating  clockwise.  The 
equations  are  also  good  for  a  driving  gear  with  a  left  hand  spiral 
which  is  rotating  counterclockwise.  For  a  driven  gear,  the  equations 
are  valid  for  a  right  hand  spiral  gear  driven  counterclockwise  and  a 
left  hand  spiral  gear  driven  clockwise.  For  the  four  other  conditions 
with  power  flow  in  the  opposite  direction,  the  signs  of  the  equations 


are  switched. 


W, 


*  (tan  $n  *  cos  Tg  -  sin  ^  *  sin  rg  ) 


(13) 


COS 


Wa  = 


Wt  *  (tan  *  sin  rg  +  sin  ip  *  cos  rg  ) 


(14) 


COS  1)1 


For  a  shaft  angle  of  90  degrees,  the  radial  load  of  the  pinion 
will  be  equal  to  the  axial  load  of  the  gear.  Also  the  axial  load  of 
the  pinion  will  be  equal  to  the  radial  load  of  the  gear.  Regardless  of 
shaft  angle,  the  tangential  force  will  be  equal  on  pinion  and  gear. 
Also,  the  total  resultant  tooth  load  on  the  pinion  and  the  gear  must  be 
equal  in  all  cases.  The  total  resultant  tooth  load  is  given  by: 
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Radial  Load 


Fr2 


(  Wa  *  Ng  /(  2  *  P<j  ) )  +  Wr  *  A 


A  +  B 


Combined  Radial  Load 
FrT2 


Fr2 


(21) 

(22) 


These  equations  are  good  for  any  pinion  and  a  gear  loaded  by 
one  pinion.  In  the  case  of  straddle  mounted  gear,  distance  A  is 

considered  to  be  positive.  In  the  overhung  case,  distance  A  is 

considered  negative.  For  the  case  of  dual  pinion  input,  each  bearing 
carries  two  sets  of  tangential  and  radial  loads  which  can  be  reduced 
into  one  tangential  and  radial  load.  The  direction  of  the  combined 
tangential  and  radial  loads  is  taken  to  be  the  direction  of  the  load 
from  the  contact  with  the  right  pinion.  The  resultant  of  these  two 
orthogonal  components  is  the  total  radial  load  on  the  bearing.  The 
vectoral  combination  of  the  forces  into  one  total  radial  load  is  shown 
in  figure  13.  The  axial  load  on  the  bearing  is  the  sum  of  the  reactions 
of  the  right  and  left  pinion  axial  gear  forces.  The  total  torque 
output  from  the  gear  is  also  the  sum  of  the  two  pinion  gear  torques  on 
the  output  gear. 

Combined  Radial  Load 


fR  =  Frr  +  Frl  *  cos  A  -  Ftj  *  sin  A 


(23) 


Combined  Tangential  Load 


Total  Radial  Load 

~\  2  2 
frt  =^fR  +  ft 


Planetary  Gear  Unit  Loading 


In  the  planetary  gear  unit  all  loads  on  the  components  are 
either  tangential  or  radial.  All  loads  are  assumed  to  be  acting  in 
the  same  plane.  It  is  assumed  that  each  planet  gear  carries  an  equal 
amount  of  the  input  torque  of  the  sun  gear. 

For  the  sun  or  planet  gear,  the  tangential  force  on  a  tooth  at 
each  sun-planet  gear  mesh  is  : 


n  *  Re 


The  tangential  force  on  a  tooth  of  the  ring  or  planet  gear  in  each 
ring  -  planet  mesh  is  : 


fr  *  — — 

Rp ri  \"  *  Rs 


Figure  14  shows  the  loading  on  the  planet  gear  from  the  sun  -  planet 
and  ring  -  planet  gear  meshes.  The  total  tangential  force  on  the 
planet  gear  bearing  is  : 


Fn  +  Fc 
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The  bearing  may  also  see  a  radial  load  due  to  the  radial  components 
produced  by  the  pressure  angle  of  the  gear  meshes. 


r  V*. 
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LIFE  ANO  DYNAMIC  CAPACITY 


Life  and  Dynamic  Capacity  Models 


Surface  pitting  fatigue  from  cyclic  loading  is  the  mode  of 
failure  for  the  components  considered  in  this  simulation  program  for 
the  life  of  a  helicopter  transmission.  Loaded  surfaces  of  rolling 
element  bearings  and  the  gears,  will  fail  due  to  surface  pitting  after 
a  number  of  repeated  loadings.  The  model  used  to  predict  failure  which 
relates  the  number  of  load  cycles  at  failure  to  the  applied  load  is 
Palmgren's  model.  Palmgren's  model  was  originally  developed  for 
rolling  element  bearings.  It  has  also  been  applied  to  gear  teeth  in 
this  computer  simulation  program.  The  Palmgren  model  is: 
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l^g  is  the  life  of  the  component  in  millions  of  load  cycles  for  a  90 
percent  probability  of  survival  [15,16].  F  is  the  equivilent  load  on 
the  component.  C,  the  basic  dynamic  capacity,  is  the  reference  load 
for  which  90  percent  of  a  large  sample  of  the  components  will  survive 
one  million  load  cycles.  The  exponent  p  is  called  the  load-life 
factor. 
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Equation  31  is  the  analytical  expression  for  a  load  verses  life 
diagram  in  which  there  is  no  endurance  limit.  Using  the  Palmgren-Minor 
linear  damage  rule  and  equation  31  an  equivalent  nominal  load  for  a 
component  in  terms  of  a  mission  spectrum  of  loads  can  be  obtained  as: 

(1  /P) 


Where  La  is  the  life  at  load  Fa. 

The  model  for  component  life  as  a  function  of  load  has  been 
combined  with  the  Weibull  distribution  for  probability  of  survival  as  a 
function  of  life  at  a  given  load  for  ball  and  roller  bearings  [15,16] 
and  for  gear  teeth  [5-9].  The  equation  resulting  from  the  combination 
describes  the  life  and  reliability  as  a  function  of  the  applied 
equivalent  load.  The  two  parameter  Weibull  distribution  is: 


Here,  S  is  the  reliability  which  is  also  the  probablity  of  survival.  1 
is  the  component  life  at  the  reliabilty  S.  I^q  is  the  component  life 
at  90  percent  reliability,  and  e  is  the  Weibull  slope. 


The  transmission  life  and  reliability  models  used  in  this 
program  combine  these  models  for  the  components  with  a  strict  series 


probabi 1 i ty  law 

that  states 

that  the  probability 

of 

survival 

of 

the 

transmission  is 

the  product 

of  the  probabilities 

of 

survival 

of 

the 

components: 

ST  =  Si  *  S2  *  S3  *  ...  (34) 

This  strict  series  probablity  law  is  justified  on  the  basis  of  the  high 
speed  of  the  transmission  components  and  the  effect  of  loose  debris. 
If  any  component  fails,  debris  present  in  the  transmission  can 
accelerate  w-iar  damage  of  other  components  of  the  transmission.  In  the 
case  of  a  transmission  run  until  failure  occurs  in  one  component,  a 
complete  transmission  overhaul  is  required.  The  complete  overhaul  is 
recommended  to  repair  all  components  which  could  have  been  damaged  by 
debris  of  the  failed  component.  The  overhaul  would  return  the 
transmission  to  a  high  state  of  reliability. 

Component  Dynamic  Capacity 

Each  bearing  and  gear  in  a  transmission  has  a  load  which  will 
cause  ten  percent  of  a  large  sample  of  these  components  to  fail  by 
pitting  at  or  before  one  million  load  cycles.  This  is  the  component 
dynamic  capacity. 

The  dynamic  capacity  for  bearings,  Cb,  can  be  obtained  from  the 
manufacturer  of  the  bearing.  The  load-life  exponent  for  rolling  element 


bearings  are  normally  taken  as  Pb=3.0  for  ball  bearings  and  as  Pb=3.33 
for  cylindrical  and  tapered  roller  bearings  [19]. 

For  gears,  the  dynamic  capacity  is  not  tabulated  directly.  The 
dynamic  capacity  of  a  gear  tooth  is  proportional  to  the  Hertzian 
contact  pressure  squared  for  applications  in  which  the  major  axis  of 
the  contact  ellipse  is  significantly  larger  than  the  minor  axis.  In 
spur  gears  there  is  line  contact.  With  this  proportionality,  the 
dynamic  capacity  of  a  gear  tooth,  C^,  can  be  expressed  as: 

Ct  =  Bi  *  b  (35) 

IT- 

Where  Bl  is  the  material  constant,  b  is  the  length  of  the  major  axis  of 
the  contact  ellipse  or  line  contact  and  [p  is  the  curvature  sum  in  the 
direction  of  gear  tooth  rotation.  The  material  constant,  Bj,  is  the 
experimental  load-stress  factor,  of  Buckingham  [17], 

Component  System  Lives  -  Gears 

To  obtain  the  system  life  of  a  gear  in  a  transmission  the 
component  life  of  a  single  tooth  of  the  gear  has  to  be  calculated.  The 
load  cycles  it  sees  must  be  adjusted  to  the  output  shaft  rotations 
[18,19,20].  Gears  with  more  than  one  loading  are  treated  separately. 

Using  a  strict  series  reliability  model  we  can  convert 
the  reliability  of  a  single  gear  tooth  to  the  reliability  of  a  gear. 

N9 

Sg  =  St  (36) 
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Where,  Sg,  is  the  probability  of  survival  of  the  gear,  St  is  the 
probability  of  survival  of  the  gear  tooth,  Ng  is  the  number  of  teeth  on 
the  gear.  If  the  reciprocal  of  this  equation  is  taken,  the  result  is: 


Taking  the  natural  logarithm  of  the  equation  : 


(37) 


(38) 


Substituting  equation  33,  which  relates  reliability  to  1 i q  life,  into 
equation  38  yields  : 


Where,  Lg  is  the  life  of  the  gear,  Ig^Q  is  the  90  percent  reliability 
of  the  gear,  is  the  life  of  the  gear  tooth,  is  the  90  percent 

reliability  life  of  the  gear  tooth,  and  eg  is  the  Weibull  exponent  of 
the  gear.  Cancelling  terms  and  taking  the  equation  to  the  (1/eg) 
power  yields  : 


\ 

d/eg) 

lh  \ 

■ 

Ng 

*  y 

(40) 
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The  equation  relating  gear  tooth  dynamic  capacity  and  load  to  gear 


tooth  life  is: 


Ct\ 

hio  *  {— 
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Where,  Ct  is  the  dynamic  capacity  of  a  gear  tooth  and  Wn  is  the  load  on 


the  gear  tooth.  This  equation  can  be  substituted  into  equation  40  to 


yield. 


(l/eq) 


This  equation  relates  gear  life  to  tooth  load.  Wn,  is  the  normal  tooth 


load  on  a  single  pinion  input.  When  there  is  a  dual  pinion  input  to  a 


gear  an  equivalent  gear  tooth  load  is  used.  Since  the  loads  from  the 


two  pinions  may  differ,  an  equivalent  load  must  be  used  to  simulate  the 


same  fatigue  damage  as  the  two  separate  loads.  To  derive  the 


equivalent  load  we  use  equation  32. 


P  P 

^a  *  La  *  ^b  *  Lb 


(1/P) 


Substituting  Wni,  the  right  pinion  normal  load,  and  Wn2,  the  left 


pinion  normal  load,  and  substituting,  L,  for  the  number  of  cycles  for 


each  pinion. 


p 


(1/p) 


wne  =/ Wnl  *  l  +  Wn2  *  «■ 
L  +  l 


Cancel  terms: 


p  p 
wne  =  /  wnl  +  wn2 


(1/P) 


2.0 


(44) 
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This  equivalent  load  is  a  weighted  average  of  the  two  loads.  Wne,  is 
substituted  for  Wn  in  the  dual  input. 

In  equation  42  the  gear  tooth  load  cycles  will  not  always  equal 
the  number  of  gear  rotations.  Also  the  gear  rotations  will  not  always 
equal  the  output  shaft  rotations.  To  get  all  components  on  the  same 
counting  base,  a  factor  must  be  inserted.  The  relationship  between 
output  rotations,  lg,  and  tooth  load  cycles,  1^,  is: 

|  *  h  (46) 

The  factor  mg  is  a  combination  ratio: 


l  mg  =  m!  *  mg2  (47) 

r» 


Where,  m^  is  the  gear  ratio  from  the  unit  output  shaft  to  the  final 
output  shaft  of  the  transmission,  and  mg2  is  the  ratio  from  tooth  load 
cycles  to  the  unit  output  shaft.  mg2  can  be  found  in  table  2. 


TABLE  2 


Take  the  reciprocal  of  the  equation 


1  1 


SP  (Sps  *spr) 


(51) 


Take  the  logarithm 


log 


*Spr) 


(52) 


By  expanding  equation  52,  the  relation  is  seen  to  be  similar  to  the 
Weibull  distribution,  equation  33: 


log  /  r 

U 


(53) 


Substitute  equation  33,  relating  reliability  to  L^q  life  into  the 
expanded  equation  to  yield: 


N  * 


log/  1 


■pt 


pslO  / 


e9 

+  l0g  /  1  \l  LPt  \ 

\0-9/  \LprlO/ 


(54) 


Where  tp  and  lpt  are  the  lives  of  the  planet  gear  and  planet  gear  tooth 
respectively.  Lpig»  LpslO»  anc*  '-prlO  are  the  ^0  percent  probability 
of  survival  life  of  the  planet  gear,  of  a  gear  tooth  in  the  planet-sun 
mesh,  and  of  a  gear  tooth  in  the  planet-ring  mesh  respectively,  eg  is 
the  gear  Weibull  exponent.  Cancel  terms  and  factor  common  terms: 
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(55) 


(56) 


By  taking  the  reciprocal  and  rearranging  the  terms  the  following 
relation  is  found: 


LplO  ■  M 

,1 

eg 

y 

i 

®g 

LprlO  *  LpslO 

w 

1 

i 

\i-pt  i 

eg  eg 

LpslO  +  LprlO 

Take  the  equation  to  the  eg  th  root 


(57) 


(l/eg) 


LplO  = 

M 

Ilp  ) 

'-prlO  *  LpslO 

l  ^ 

i  "p  i 

|  * 

{ Lpt  1 

1 

|  eg  eg 

LpslO  +  LprlO 

Sustitute  the  mg  factor  for  relating  output  revolutions  to  tooth 
cycles. 


(58) 


load 
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eq  (l'eq) 


g  /  M-pslO  +  Lprio 


Substitute  equation  31  relating  tooth  life  to  tooth  dynamic  capacity 


and  load. 


(1/eg) 


pio  =  —  + 


0>g**g)  rPq*eg)](l/eg) 


Where  Cpr  and  Cps  are  the  dynamic  capacities  of  a  tooth  in  the 
planet-ring  gear  mesh  and  a  tooth  in  the  planet-sun  gear  mesh 
respectively.  Wpr  and  Wps  are  the  load  on  a  tooth  in  the  planet-ring 
and  planet-sun  mesh  respectively.  pg  is  the  load-life  exponent  of  the 
gear. 

Component  System  Lives  -  Bearings 

Using  a  similar  approach  to  the  gears  [18,19,20],  the 
relationship  obtained  for  bearings  is: 


LbslO  LblO 


Where  is  the  life  of  the  bearing  in  terms  of  bearing  cycles,  lb$  is 
the  life  of  the  bearing  in  terms  of  output  shaft  revolutions.  Lbio  is 
the  90  percent  reliability  life  in  terms  of  bearing  cycles.  1-bslO  is 
the  90  percent  reliability  life  in  terms  of  output  shaft  revolutions. 
By  substituting  equation  31,  which  relates  bearing  life  to  bearing 
capacity  and  load,  the  relationship  becomes: 

In  equation  62  the  bearing  load  cycles  will  not  always  equal 
the  number  of  output  shaft  rotations.  To  get  all  components  on  the 
same  counting  base  a  factor  must  be  inserted.  The  relationship 
relating  output  rotations,  Lbs»  and  bearing  load  cycles.  Lb,  is: 

Lbs  =  (7]*  Lb  (63) 

The  factor  mb  is  a  combination  ratio: 

mb  =  mi  *  mb2  (64) 


Where,  mi,  is  the  gear  ratio  from  the  unit  output  shaft  to  the  final 
output  shaft  of  the  transmission,  and  mb2  is  the  ratio  from  bearing 
load  cycles  to  the  unit  output  shaft  revolutions.  mb2  can  be  found  in 
table  3. 

If  one  substitutes  factor  mb  ,  equation  63,  into  equation  62  a 
relation  is  obtained  which  will  calculate  gear  life  in  output  shaft 
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TABLE  3 


if 

VI1 

\M 


Ratio  Relating  Bearing  Load  Cycles  to 
Unit  Output  Shaft  Rotations 
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rotations  from  the  gear  tooth  load.  The  equation  for  the  bearings 
becomes: 


Lbsl° 't)*©  (65) 

This  equation  gives  the  bearing  life  in  terms  of  output  rotations. 

Component  System  Dynamic  Capacities 

The  dynamic  capacity  of  each  component  can  now  be  expressed  as 
an  output  torque.  By  taking  the  p  th  root  of  equation  31  and  replacing 
the  ratio  of  the  component  system  capacity  to  the  component  equivalent 
load  by  the  ratio  of  component  system  dynamic  capacity  to  reduction 
output  torque,  the  component  system  lives  can  be  used  to  determine  the 
component  system  dynamic  capacities. 

(1/Pi) 

Di  =  (Li  10)  *  (T0)  (66) 

These  dynamic  capacities  are  in  units  of  output  torque  and  express  the 
output  torque  of  the  reduction  at  which  90  percent  of  a  set  of  similar 
components  will  survive  for  one  million  rotations. 

Transmission  Life 

To  calculate  the  life  of  the  transmission,  the  probability  of 
survival  of  the  transmission  is  expressed  as  the  product  of  the 
probabilities  of  survival  of  the  components. 


(67) 


ST  =  n  Si 
i  =1 


The  reciprocal  of  the  equation  is: 


i  - 


i»l  IS, 


Taking  the  natural  logarithm  of  this  equation: 


log  /  1 


n  log  /  1 

l  - 

i=l  \  S, 


Using  the  Weibull  distribution  equation  relating  life  to  probability  of 
survival,  equation  33,  the  preceding  equation  becomes: 


log  / 1  \  =  log  /  1 


\S t/  V0.9/  i*l  / 

In  this  equation  ly  is  the  life  of  each  component  and  of  the  entire 
transmission  for  a  transmission  reliabilty  of  Sy.  This  equation  is  not 
a  strict  Weibull  relationship  between  transmission  life  and 
reliability.  The  equation  would  be  a  true  Weibull  distribution  if  all 
the  Weibull  exponents,  e, ,  were  equal.  This  is  not  true  since  Weibull 
exponents  for  gears  and  bearings  will  differ  from  each  other 
significantly.  This  equation  can  be  solved  for  Sy  as  a  function  of 
the  transmission  life,  Ly,  and  plotted  on  Weibull  coordinates. 


m 


On  this  plot  of  percent  probability  of  failure  versus 
transmission,  life  a  straight  line  can  be  fit  to  the  model.  Linear 
regression  can  be  used  to  approximate  the  straight  line.  The  range  of 
this  linear  regression  is  for  probability  of  suvival  between  fifty  and 
ninety-five  percent.  The  slope  of  the  straight  line  approximation  is 
the  transmission  Weibull  exponent  ey  .  The  transmission  life,  Lyyg,  is 
the  life  calculated  from  the  straight  line  approximation  at  a 
reliability  Sys0.9.  This  L-qq  life  is  the  life  of  the  transmission  at 
the  given  output  torque.  The  equation  using  the  transmission  life  Lyyo 
and  Weibull  exponent,  ey  is: 


log  l 


log  /  1 
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Transmission  Dynamic  Capacity 


The  basic  dynamic  capacity  for  the  transmission,  Dy,  is  the 
output  torque  which  will  give  a  transmission  life  of  one  million  output 
shaft  rotations,  at  a  reliabilty  of  90  percent.  Setting  Sy=0.9 
in  equation  69  yields: 


log  /  1 


log  /  1  \  n  / Ly 
\°* 9/  i  =  l  \L-jio 
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This  equation  can  be  solved  by  iteration  to  obtain  the  transmission 
dynamic  capactity,  Dy. 

To  find  the  load  life  exponent,  a  series  of  90  percent 
reliability  lives  of  the  transmission  are  calculated  at  output  torques 
between  10  and  100  percent  of  the  dynamic  capacity.  The  lives  are 
plotted  against  torque  on  a  log  versus  log  plot,  this  curve  can  be 
approximated  by  a  straight  line.  Using  a  linear  regression,  the  slope 
and  value  of  the  function  at  one  million  cycles  can  be  found.  The 
negative  reciprocal  of  the  slope  is  the  load  life  exponent  for  the 
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transmission.  The  value  of  the  function  at  one  million  cycles  will  be 
the  dynamic  capacity  of  the  transmission  corresponding  to  the  load  life 
exponent.  With  the  values  from  the  linear  regression,  The  load  life 
relation  for  the  transmission  is  given  by: 

PT 


OT 


Lno  =  — 


(77) 


Where,  Dy  is  the  output  torque  for  one  million  output  rotations,  py  is 
the  load-life  exponent  and  lyig  is  the  90  percent  reliability  life  of 
the  transmission. 
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PROGRAM  USE 


i  m 


To  use  the  program  one  must  define  the  geometry  of  the 
transmission.  One  can  run  the  program  interactively  or  by  batch  file. 
To  run  the  program  interactively,  one  will  have  to  answer  the  prompts 
(questions)  with  the  proper  information.  If  a  mistake  is  made  entering 
the  information  according  to  the  prompts,  all  is  not  lost.  After  a 
series  of  questions,  the  value  of  the  last  few  will  be  printed  out.  A 
prompt  will  ask  if  you  wish  to  change  any  of  the  previous  answers.  If 
one  answers  yes,  the  program  will  return  to  the  beginning  of  the 
section  and  then  one  can  input  the  correct  information. 

The  program  will  prompt  the  user  with  a  list  of  eight  types  of 
transmissions  which  can  be  analyzed.  The  eight  types  of  transmissions 
are  shown  in  figure  15.  Any  one  of  these  eight  types  can  be  analyzed. 
Once  the  type  of  transmission  is  chosen,  the  program  will  ask  for 
information  to  define  each  gear  unit  making  up  the  transmission.  The 
inputs  for  spiral  bevel  gear  units  are  asked  for  separately  from  the 
inputs  for  the  planetary  gear  units. 

The  inputs  required  for  the  spiral  bevel  gear  unit  are  divided 
into  three  main  parts:  the  geometry  of  the  gear  mesh,  the  mounting  of 
the  bearings  and  gears,  and  the  characteristics  of  the  bearings.  These 
three  sets  of  inputs  can  be  found  in  table  4,  5,  and  6  respectively. 
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TABLE  4 


Inputs  to  Define  the  Geometry  of  the 
Spiral  Bevel  Gear  Unit  Gear  Mesh 


1.  Number  of  teeth  of  the  pinion 

2.  Number  of  teeth  of  the  gear 

3.  The  Cone  distance  of  the  gear  mesh  (in) 

4.  Face  width  of  the  gear  mesh  (in) 

5.  Normal  pressure  angle  (deg) 

6.  Spiral  angle  of  the  gear  mesh  (deg) 

7.  Spiral  hand  of  the  gear  mesh 

8.  Shaft  angle  between  the  pinion  shaft  centerline  and  the  gear 

shaft  centerline  (deg) 

9.  Shaft  angle  between  dual  pinion  inputs  (deg) 

(dual  pinion  inputs  only) 

10. Input  speed  of  pinion  shaft  (rpm) 

11a. Input  torque  of  the  pinion  shaft  (lb-in) 
lib. Input  torque  of  the  right  pinion  shaft  (lb-in) 

Input  torque  of  the  left  pinion  shaft  (lb-in) 

(dual  pinion  inputs  only) 

12.  Direction  of  input  torque 

13.  Gear  mesh  material  constant 

14.  Gear  mesh  Wei bu 11  exponent 

15.  Gear  mesh  Load-Life  exponent 


TABLE  5 

Inputs  to  Define  the  Mounting  of  the 
Spiral  Bevel  Gear  Unit  Bearings  and  Gears 


1.  The  case  of  mounting  -  either  straddle  or  overhung  mounting 

2.  Distance  A  -  Gear  to  bearing  closest  to  the  gear  mesh  apex 

3.  Oistance  B  -  Gear  to  bearing  furthest  from  the  gear  mesh  apex 

4.  The  bearing  which  takes  the  thrust  load 


TABLE  6 


Inputs  to  Define  the  Characteristics  of  the 
Spiral  Bevel  Gear  Unit  3earings 


The  bearings  can  be  of  the  following  types: 

1.  Single  row  ball  bearings 

2.  Double  row  ball  bearings 

3.  Single  row  roller  bearings 

4.  Double  row  roller  bearings 

5.  Single  row  tapered  roller  bearings 

6.  Double  row  tapered  roller  bearings 

For  types  1  and  2  -  Single  and  Double  row  ball  bearings  the  inputs 
required  are  : 

1.  Number  of  rolling  elements  in  the  bearing 

2.  Diameter  of  the  rolling  elements  in  the  bearing  (in) 

3.  Bearing  contact  angle  (deg) 

4.  Basic  dynamic  capacity  (lbs) 

5.  Rotational  factor  (inner  race  or  outer  race  rotation) 

6.  Wei bu 1 1  exponent 

7.  Life  adjustment  factor 

For  types  3  and  4  -Single  and  Double  row  roller  bearings  the  inputs 
required  are  : 

1.  Basic  dynamic  capacity  (lbs) 

2.  Rotational  factor  (inner  race  or  outer  race  rotation) 

3.  Wei  bull  exponent 

4.  Life  adjustment  factor 

For  types  5  and  6  -Single  and  Double  row  tapered  roller  bearings 
the  inputs  required  are  : 

1.  Thrust  ratio 

2.  Basic  dynamic  capacity  (lbs) 

3.  Wei  bull  exponent 

4.  Life  adjustment  factor 
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In  the  planetary  gear  unit,  the  inputs  will  be  for  either  an 
unstepped  planetary  or  a  stepped  planetary.  The  stepped  planetary 
gear  unit  will  require  extra  inputs  to  define  the  stepped  planet 
gears.  Inputs  for  a  planetary  gear  unit  are  found  in  table  7. 

In  the  program,  the  spiral  bevel  gear  unit  and  planetary  gear 
unit  analysis  are  done  in  separate  parts.  The  method  of  analysis  is 
the  same  in  both  parts.  First  the  geometry  of  the  gears  is  completed 
from  the  information  given  and  the  geometric  relations.  Next  the  loads 
on  each  component  of  the  unit  are  calculated.  The  life  of  the 
component  is  calculated  from  the  load  on  the  component  and  the  load 
cycle  ratio  of  the  component.  The  dynamic  capacity  is  then  calculated 
for  each  component.  From  the  calculated  lives  of  the  components,  the 
life  and  the  Weibull  exponent  of  the  transmission  is  found  by 
iteration.  The  program  next  figures  a  series  of  transmission  lives 
verses  output  torques  between  10  and  100  percent  transmission  dynamic 
capacity.  Using  a  linear  approximation  of  the  output  load  verses  life 
of  the  transmission,  the  transmission  dynamic  capacity  and  load-life 
exponent  is  found.  Figure  16  is  a  basic  flow  chart  of  the  program. 
Appendix  C  contains  the  computer  listing  for  the  program. 

In  the  output  of  the  program  one  will  find  the  complete 
dimensions  of  the  gear  meshes  and  the  forces  on  the  components.  Also 
the  component  system  lives  and  dynamic  capacities  are  in  the  output. 
The  transmission  life  and  dynamic  capacity  are  the  final  results 
produced  by  the  program.  Table  3  lists  the  format  of  the  transmission 


TABLE  7 


Inputs  to  Define  the  Geometry  of  the 
Planetary  Gear  Unit 


1.  Basic  dynamic  capacity  of  planet  bearing  (lbs) 

2.  Rotational  factor  (inner  race  or  outer  race  rotation) 

3.  Weibull  exponent  for  the  planet  bearing 

4.  Load-life  exponent  for  the  planet  bearing 

5.  Life  adjustment  factor  for  the  planet  bearing 

6.  Number  of  planet  bearings 

7.  Is  the  diametral  pitch  the  same  for  the  sun  and  ring  gear  ? 

When  the  pitches  are  the  same  : 

7a.  Diametral  pitch  of  the  meshes 
When  the  pitches  are  different  : 

7b.  Diametral  pitch  of  the  sun-planet  mesh 
Diametral  pitch  of  the  ring-planet  mesh 

8.  Is  the  pressure  angle  the  same  for  the  sun  and  ring  gear  ? 

When  the  pressure  angle  is  the  same  : 

3a.  Pressure  angle  of  the  meshes  (deg) 

When  the  pressure  angles  are  different  : 

8b.  Pressure  angle  of  the  sun-planet  mesh  (deg) 

Pressure  angle  of  the  ring-planet  mesh  (deg) 

9.  Number  of  teeth  on  the  sun  gear 

10.  Face  width  of  the  sun  gear  (in) 

11.  Weibull  exponent  for  the  sun-planet  mesh 

12.  Load-life  exponent  for  the  sun-planet  mesh 

13.  Material  constant  for  the  sun-planet  mesh 

14.  Does  the  transmission  have  stepped  planet  gears  ? 

When  the  planets  are  unstepped  : 

14a.  Number  of  teeth  on  the  unstepped  planet  gear 
When  the  planets  are  stepped  : 

14b.  Number  of  teeth  on  planet  gear  meshed  with  sun  gear 
Number  of  teeth  on  planet  gear  meshed  with  ring  gear 

15.  Number  of  teeth  on  the  ring  gear 

16.  Face  width  of  the  ring-planet  mesh  (in) 

17.  Weibull  exponent  of  the  ring-planet  mesh 

18.  Load-life  exponent  of  the  ring-planet  mesh 

19.  Input  torque  (lb-in) 

20.  Input  speed  (rpm) 


START 


Pick  type  of  transmission 
Spiral  Bevel 
PI anetary 

Spiral  Bevel  +  Planetary 
Spiral  Bevel  +  Planetary 
+  Planetary 
Dual  Spiral  Bevel 
Oual  Spiral  Bevel  +  Planetary 
Dual  Spiral  Bevel  +  Planetary 
+  Planetary 

Spiral  Bevel  +  Dual  Spiral  Bevel 
+  Planetary 


Input:  input  shaft  torque  and  speed 


Input:  geometry  of  gears 


Check  if  geometry  is  correct; 
If  not:  re-enter  gear  geometry 


Input:  geometry  of  bearings 


Check  if  geometry  is  correct; 
if  not:  re-enter  bearing  geometry 


Figure  16 


Computer  Program  Flow  Chart 


Complete  calculation  of  geometry 


Calculate  output  torque 
and  speed  of  transmission 


Calculate  loads  on  the  components 


Calculate  lives  of  the  components 


Calculate  dynamic  capacities 
of  the  components 


Iterate  for  15  to  L 50  lives 
of  the  transmission,  and 
do  a  linear  regression  to  find  the  L10  life 
and  Weibull  exponent  of  the  transmission 


Figure  16  continued 
Computer  Program  Flow  Chart 


Print  out  component  lives 
and  dynamic  capacities 


Print  out  transmission 
life  and  dynamic  capacity 


Figure  16  continued 
Computer  Program  Flow  Chart 
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TABLE  8 


Output  of  the  Program 


For  each  gear  unit  the  following  will  be  output: 

1.  The  gear  mesh  geometry 

2.  The  gear  mounting  geometry 

3.  The  forces  on  the  gears  and  bearings 

For  each  component  the  following  will  be  output: 

1.  Component  system  dynamic  capacity 

2.  Component  system  load-life  exponent 

3.  Component  system  life  in  output  shaft  rotations 

4.  Component  system  life  in  hours 

5.  Component  system  We ibul 1  exponent 

For  the  transmission  the  following  will  be  output 

1.  Transmission  system  dynamic  capacity 

2.  Transmission  system  load-life  exponent 

3.  Transmission  system  life  in  output  shaft  rotations 

4.  Transmission  system  life  in  hours 

5.  Transmission  system  Weibul 1  exponent 
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NUMERICAL  EXAMPLE 


In  the  design  of  a  transmission  the  components  are  sized  from 
the  power  transfer  requirement.  The  initial  design  does  not  consider 
the  effects  of  the  components  on  one  another.  The  initial  design 
contains  some  overdesigned  and  weak  parts.  One  can  change  the 
parameters  on  the  overdesigned  and  weak  components  to  see  the  overall 
effect  in  the  transmission. 

In  this  example,  the  transmission  being  designed  is  a  320 
horsepower  single  input  helicopter  transmission.  The  input  speed  is 
6180  rpm  and  the  output  speed  is  354  rpm.  The  L^g  life  of  the 
transmission  is  to  be  approximately  3500  hours  at  the  rated  power 
1 evel . 

The  layout  chosen  for  this  transmission  is  a  spiral  bevel  unit 
followed  by  an  unstepped  planetary  unit,  figure  17.  The  spiral  bevel 
unit  will  produce  a  gear  reduction  of  3.736  :  1.  The  input  torque 

will  be  transferred  through  95  degrees  from  an  approximately 
horizontal  input  to  a  vertical  output  shaft.  Table  9  lists  the 
geometry  of  the  spiral  bevel  unit.  The  planetary  unit  will  produce  a 
gear  reduction  of  4.66  :  1  along  the  output  shaft.  Table  10  lists  the 

geometry  of  the  planetary  unit.  Appendix  A  shows  how  the  input  is 
entered  into  the  program  for  this  original  design. 


Input  Bearing  2  Input  Bearing  1 


TABLE  9 


Spiral  Bevel  Gear  Unit  Input  For  Numerical  Example 


Gear  mesh  geometry 

Number  of  teeth  on  the  pinion 

Number  of  teeth  on  the  gear 

Cone  distance 

Normal  pressure  angle 

Face  width 

Spiral  angle 

Clockwise  rotation 

Left  hand  spiral 

Shaft  angle 

Gear  mesh  material  constant 
Gear  mesh  weibull  exponent 
Gear  mesh  load-life  expoent 
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5.199  in. 
20.  deg. 
1.8  in. 

25  deg. 


95  deg. 
35000.  psi 
2.5 
4.3 


Pinion  mounting 

Straddle  mount  with  bearing  2  taking  thrust  load 


Distance  A  1.3  in. 

Distance  B  2.5  in. 

Pinion  bearing  1 
Single  row  roller  bearing 

Basic  dynamic  capacity  14000.  lbs. 

Rotational  factor  (inner  race  rotation)  1.0 

Weibull  exponent  1.5 

Bearing  life  adjustment  factor  2.5 

Pinion  bearing  2 
Double  row  ball  bearing 

Number  of  rolling  elements  14 

Diameter  of  rolling  elements  .5625  in. 

Contact  angle  35  deg. 

8asic  dynamic  capacity  25000.  lbs 

Rotaional  factor  (inner  race  rotation)  1.0 

Weibull  exponent  1.5 

Bearing  life  adjustment  factor  2.5 


Gear  mounting 

Overhung  mount  with  bearing  2  taking  thrust  load 
Distance  A  0.9  in. 

Distance  3  2.6  in. 


Table  9  Continued 


Gear  bearing  1 

Single  row  roller  bearing 

Basic  dynamic  capacity 

20000.  lbs 

Rotation  factor  (inner  race  rotation) 

1.0 

Wei  bull  exponent 

1.5 

Bearing  life  adjustment  factor 

2.5 

Gear  bearing  2 

Double  row  ball  bearing 

Number  of  rolling  elements 

25 

Diameter  of  rolling  elements 

.375  in. 

Contact  angle 

27  deg. 

Basic  dynamic  capacity 

19076  lbs 

Rotaional  factor  (inner  race  rotation) 

1.0 

Weibull  exponent 

1.5 

Bearing  life  adjustment  factor 

2.5 
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TABLE  10 


Planetary  Gear  Unit  Input  For  Numerical  Example 


Basic  dynamic  capacity  of  bearings  20895  lbs. 

Bearing  Life  adjustment  factor  2.5 

Rotational  factor  (inner  race  rotation)  1.0 

Weibull  exponent  1-5 

Load- life  exponent  3.33 

Number  of  planet  bearings  3 

Number  of  teeth  on  sun  gear  27 

Number  of  teeth  on  planet-sun  gear  35 

Number  of  teeth  on  planet-ring  gear  35 

Number  of  teeth  on  ring  gear  99 

Diametral  pitch  of  sun  gear  mesh  3.8710 

Diametral  pitch  of  ring  gear  mesh  9.1429 

Pressure  angle  of  sun  gear  mesh  20  deg. 

Pressure  angle  of  ring  gear  mesh  14.0682  deg. 

Face  width  of  sun  gear  mesh  3.178  in. 

Face  width  of  ring  gear  mesh  2.540  in. 

Weibull  exponent  of  sun  gear  mesh  2.5 

Weibull  exponent  of  ring  gear  mesh  2.5 

Load-life  exponent  of  sun  gear  mesh  4.3 

Load-life  exponent  of  ring  gear  mesh  4.3 

Material  constant  of  sun  gear  mesh  20800.  psi 

Material  constant  of  ring  gear  mesh  20800.  psi 
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The  program  was  run  with  the  geometry  described  in  table  9  and 
10.  The  output  of  the  program  can  be  found  in  appendix  3.  The  program 
first  calculates  the  loading  on  each  component  in  the  transmission. 
This  intermediate  step  of  calculating  the  life  of  the  components  is 
useful  to  a  designer.  If  the  designer  changes  the  geometry  of  the 
transmission  the  loads  on  the  components  will  change.  The  change  in 
loading  of  the  component  will  change  the  life  of  the  component  without 
changing  the  dynamic  capacities  of  the  components. 

After  the  intermediate  step  of  calculating  the  loads,  the 
program  computes  the  life  of  each  component.  The  dynamic  capacity  of 
each  component  is  calculated  next.  The  life  and  Weibull  exponent  is 
then  calculated  for  the  spiral  bevel  unit,  planetary  unit,  and  the 
total  transmission.  Finally  the  dynamic  capacity  and  load  life 
exponent  is  calculated  for  the  spiral  bevel  unit,  planetary  unit,  and 
the  total  transmission. 

The  intermediate  calculation  of  life  and  dynamic  capacity  of 
the  spiral  bevel  unit  and  the  planetary  unit  are  valuable  since  a 
change  within  one  unit  will  not  effect  the  components  in  the  ^  her 
unit.  Therefore  the  effects  of  design  change  within  a  unit  are  readily 
observed. 

The  values  of  the  total  transmission  life  and  dynamic  capacity 
will  help  the  designer  determine  the  critical  elements  in  the 
transmission  by  comparing  the  values  for  the  transmission  to  the  life 
and  dynamic  capacity  of  each  unit.  Table  11  shows  the  values  of  dynamic 
capacity,  load-life  exponent,  life  in  output  rotations,  life  in  hours, 
and  Weibull  exponent  for  the  initial  design.  By  checking  the  values  of 


Table  11 


Life  and  Dynamic  Capacity  of  Transmission 
Design  1 


Component 

dyn  ami c 
capacity 

load-life 

exponent 

life  in 

output 

rotations 

life  in 
hours 

Weibul 1 
exponent 

Spiral  Bevel 

Unit 

77,327 

4.02 

1 7*1 0E6 

797 

2.27 

Input  Pinion 

Input  Bearing  1 
Input  Bearing  2 
Output  Gear 
Output  Bearing  1 
Output  Bearing  2 

79,215 

194,082 

446,909 

95,272 

139,135 

163,966 

4.3 

3.3 

3.0 

4.3 

3.3 

3.0 

20*1 0E6 
194*10E6 
1.469*10E9 
44*10E6 
64*10E6 
72*10E6 

957 

9,140 

69,124 

2,111 

3,047 

3,413 

2.5 

1.5 

1.5 

2.5 

1.5 
1.5 

Planetary  Unit 

136,760 

3.43 

70*10E6 

3,370 

1.509 

Planet  Bearing 
Sun  Gear 

Ring  Gear 
Planet-Ring  Gear 
Planet-Sun  Gear 

175.807 

174.807 
3,970,348 

233,424 

4,433,816 

3.3 

4.3 

4.3 

4.3 

4.3 

147*1 0E6 
605*10E6 
415*10E12 
2. 122*10E9 
668*10E12 

6,929 

28,474 

19*10E9 

99,815 

31*10E9 

1.5 

2.5 
2.5 
2.5 
2.5 

Total 

Transmi ssion 

76,841 

3.966 

16*E6 

758 

2.2 
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the  spiral  bevel  unit  and  planetary  unit  against  the  values  for  the 
total  transmission,  it  can  be  seen  that  the  spiral  bevel  unit  values 
are  very  close  to  the  transmission  values.  This  is  also  illustrated  in 
figure  18.  The  spiral  bevel  unit  dominates  the  life  and  dynamic 
capacity  of  the  total  transmission.  Therefore  it  is  the  weakest  part  of 
the  transmission.  By  further  examination  it  can  be  seen  that  the  life 
and  dynamic  capacity  of  the  spiral  bevel  unit  is  dominated  by  the  input 
pinion  and  output  gear.  The  value  of  these  components  are  much  lower 
than  any  other  component  in  the  system,  therefore  a  redesign  of  the 
gear  mesh  would  be  recommended. 

In  this  example  the  size  of  the  spiral  bevel  gear  mesh  was 
increased.  The  size  of  the  cone  distance,  A0,  was  increased  from  5.199 
inches  to  8.5  inches,  and  the  face  width,  f,  was  increased  from  1.8 
inches  to  3.5  inches.  This  redesign  causes  an  increase  in  spiral  bevel 
unit  life  of  400  percent  and  an  increase  in  transmission  life  of  300 
percent.  The  results  of  this  redesign  are  shown  in  table  12.  The  life 
verses  probability  of  failure  graph  for  this  case  is  shown  in  figure 
19. 

The  life  of  the  transmission  is  still  less  than  the  life 
required  in  the  specifications.  Since  the  life  of  the  spiral  bevel 
unit  and  planetary  unit  are  about  equal,  the  lives  of  both  units  will 
have  to  be  increased.  In  the  spiral  bevel  unit,  the  output  bearings 
have  the  lowest  life.  In  this  case  the  dynamic  capacity  of  the 
bearings  are  increased.  For  the  planetary  unit  the  planet  bearings 
have  the  lowest  life.  There  are  two  choices  to  increase  the  life  of 
the  planet  bearing,  either  increase  the  number  of  planet  bearings  or 


S3 


oc 

£  50. 
O 


TRANSMISSION 

SPIRAL 

/ 

BEVEL  UNIT 

y 

/ 

/  PLANETARY  UNIT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 


Figure  18 

Life  Versus  Probability  of  Failure  Design  1 


Life  and  Dynamic  Capacity  of  Transmission 
Re-Design  1 


Component 

dynamic 

load-1 ife 

life  in 

life  in 

Weibul 1 

capacity 

exponent 

output 

rotations 

hours 

exponent 

Spiral  3evel 

Unit 

156,406 

3.15 

78*10E6 

3,631 

1.5 

Input  Pinion 

379,730 

4.3 

1. 720*10E10 

81*10E4 

2.5 

Input  Bearing  1 

292,227 

3.3 

750*10E6 

35,278 

1.5 

Input  Bearing  2 

707,016 

3.0 

5.819*10E9 

273,692 

1.5 

Output  Gear 

456,416 

4.3 

3. 794*10E10 

18*10E5 

2.5 

Output  Bearing  1 

177,080 

3.3 

143*10E6 

6,754 

1.5 

Output  Bearing  2 

191,072 

3.0 

114*10E6 

5,402 

1.5 

Planetary  Unit 

136,760 

3.43 

70*1 0E6 

3,370 

1.50 

Planet  Bearing 

175,807 

3.3 

147*10E6 

6,929 

1.5 

Sun  Gear 

174,807 

4.3 

605*10E6 

28,474 

2.5 

Ring  Gear 

3,970,348 

4.3 

415*10E12 

19*1 0E9 

2.5 

PI anet-Ring  Gear 

233,424 

4.3 

2.1 22*10E9 

99,815 

2.5 

Planet-Sun  Gear 

4,433,816 

4.3 

668*1 OE 1 2 

31*1 0E9 

2.5 

Total 

Transmi ssion 

125,832 

3.31 

47*10E6 

2,199 

1.5 

I 
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increase  the  dynamic  capacity  of  the  bearings.  In  this  case  the  number 
of  bearings  is  increased.  The  life  of  the  bearings  will  increase 

because  the  load  on  each  bearing  will  be  lower.  This  also  increases 
the  life  of  the  other  components  in  the  planetary  since  the  loads 
transmitted  by  each  planet  gear  will  be  lower. 

The  results  of  this  redesign  are  shown  in  table  13.  The  life 
verses  probability  of  failure  graph  for  this  case  is  shown  in  figure 
20.  The  modifications  doubled  the  life  of  each  unit.  The  life  of  the 
total  transmission  increased  to  4500  hours  which  is  above  the  design 
requirement  of  3500  hours.  By  examining  the  Weibull  and  load-life 

exponents  one  can  see  that  the  design  is  dominated  by  the  life  of  the 
bearings.  The  Weibull  and  load-life  exponents  are  very  close  to  the 
most  common  exponent  values  of  bearings.  This  indicates  that  the  life 
and  dynamic  capacity  of  the  transmission  are  dominated  by  the  bearings. 

This  is  a  good  test  to  find  which  components  dominate  the  life  of  the 

transmission  or  any  unit  in  the  transmission. 

The  results  of  each  following  design  run  will  give  a  great  deal 
of  information  on  which  design  changes  can  be  based.  These  design 
changes  will  allow  the  designer  to  approach  an  optimal  transmission 


Table  13 


Life  and  Dynamic  Capacity  of  Transmission 
Re-Design  2 


Component 

dynamic 

load-life 

life  in 

life  in 

Weibul 1 

capacity 

exponent 

output 

rotations 

hours 

exponent 

Spiral  Bevel 

Unit 

190,350 

3.19 

153*10E6 

7,208 

1.5 

Input  Pinion 

379,730 

4.3 

1. 720*10E10 

81*10E4 

2.5 

Input  Bearing  1 

292,227 

3.3 

750*10E6 

35,278 

1.5 

Input  Bearing  2 

707,016 

3.0 

5.819*10E9 

273,692 

1.5 

Output  Gear 

456,416 

4.3 

3. 794*10E10 

1 8* 1 OE  5 

2.5 

Output  Bearing  1 

212,497 

3.3 

262*10E6 

12,328 

1.5 

Output  Bearing  2 

250,409 

3.0 

258*10E6 

12,159 

1.5 

Planetary  Unit 

171,938 

3.43 

152*1 0E6 

7,158 

1.50 

Planet  Bearing 

234,410 

3.3 

384*10E6 

18,077 

1.5 

Sun  Gear 

217,442 

4.3 

1 . 564*1 OE  9 

73,578 

2.5 

Ring  Gear 

4,951,214 

4.3 

1. 070*10E15 

50*10E9 

2.5 

Planet-Ring  Gear 

311,232 

4.3 

7. 312*10E9 

343,900 

2.5 

Planet-Sun  Gear 

5,911,754 

4.3 

2. 300*10E15 

11*1 Uc  9 

2.5 

Total 

Transmission 

156,765 

3.32 

96*10E6 

4,526 

1.5 
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LIFE  IN  MILLION  OUTPUT  ROTATIONS 


Figure  20 

Life  Versus  Probability  of  Failure  Re-Design  2 


DISCUSSION  OF  RESULTS 


This  computer  program  was  developed  to  model  the  life  and 
reliability  of  helicopter  transmissions.  The  calculation  of  the  life 
of  a  transmission  is  based  on  a  strict  series  probability  law.  The 
strict  series  probability  law  states  that  the  probability  of  survival 
of  a  transmission  is  the  product  of  the  probabil ities  of  survival  of 
all  the  components.  The  relationship  between  the  probability  of 
survival  of  a  component  and  its  life  is  the  two  parameter  Wei  bull 
distribution.  The  resulting  reliability  model  for  the  transmission  is 
also  a  two  parameter  Wei  bull  distribution. 

The  computer  program  is  written  in  a  modular  form  to  model 
many  different  types  of  transmissions.  In  addition  to  results  for  the 
overall  transmission,  intermediate  results  for  modules  of  the 
transmission  are  given. 

Input  to  the  computer  program  is  to  be  given  in  an 
interactive  format.  The  program  prompts  the  user  with  questions  which 
ask  for  the  parameters  required  to  describe  the  transmission.  In  this 
interactive  format,  a  screen  by  screen  review  of  the  input  data  is 
provided  to  the  user.  If  any  data  on  the  screen  is  incorrect,  the 
user  may  return  to  the  input  stream  at  a  point  just  prior  to  this 
screen  to  input  this  data  correctly.  If  more  than  one  design  is  to  be 


modeled  at  a  time,  an  input  data  file  may  be  used  to  speed  up  the  use 
of  the  program.  The  user  can  change  one  parameter  in  a  data  file  and 
quickly  run  the  program  again  to  determine  the  effects  of  this  change 
on  the  components  and  the  transmission. 

The  output  of  the  computer  program  gives  a  complete  overview 
of  the  transmission  analysis.  The  geometry  of  the  components  entered 
into  the  program  and  the  geometry  calculated  for  the  components  are 
both  printed  out.  Lives  and  dynamic  capacities  of  the  components  are 
printed  out  in  terms  of  component  cycles  and  loads  and  in  terms  of 
system  cycles  and  load.  Each  result  listed  in  the  output  includes  a 
title  and  the  proper  units. 

By  using  the  program  in  a  systematic  manner,  a  user  can 
approach  an  optimal  design.  An  example  of  this  use  is  given  in  the 
proceeding  chapter  to  illustrate  the  use  of  the  program.  Sample  input 
and  output  listings  are  included  in  the  first  two  appendices.  The 
third  appendix  is  a  listing  of  the  fortran  source  code  for  the 


program. 


SUMMARY  OF  RESULTS 


This  report  describes  a  computer  simulation  program  which 
models  the  life  and  reliability  of  a  helicopter  transmission.  The 
computer  program  uses  the  lives  and  reliabilities  of  the  individual 
bearings  and  gears  in  the  transmission  to  compute  the  life  and 
reliability  of  the  transmission.  This  model  is  a  strict  series 
probability  model  which  is  based  on  the  pitting  fatigue  life  and 
reliability  models  for  the  components  of  the  transmission. 

In  this  program,  a  modular  approach  is  used  in  which  the 
force  and  motion  analyses  of  the  transmission  are  separated  from  the 
life  and  reliability  analyses.  The  dynamic  capacity  models  are  also 
separated  al gebraical ly  from  the  prior  calculations.  In  this  way,  the 
calculations  can  be  performed  sequentially  and  the  complexity  and 
diversity  of  the  analyzed  transmissions  can  be  increased  greatly. 

The  computer  program  can  simulate  a  number  of  transmission 
configurations  built  up  from  spiral  bevel  gear  units,  a  dual  spiral 
bevel  gear  unit  and  stepped  or  unstepped  planetary  gear  units.  The 
eight  transmission  configurations  analyzed  by  the  program  are: 

1)  a  spiral  bevel  reduction, 

2)  a  planetary  reduction, 

3)  a  spiral  bevel  reduction  followed  by  a  planetary  reduction. 
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4)  a  spiral  bevel  reduction  followed  by  two  planetary  reductions 


in  series, 

5)  a  dual  spiral  bevel  reduction  with  two  input  pinions  of  equal 

size, 

6)  a  dual  spiral  bevel  unit  followed  by  a  single  planetary 

reduction, 

7)  a  dual  spiral  bevel  unit  followed  by  two  planetary  reductions 

in  series,  and 

8)  a  dual  spiral  bevel  unit  followed  by  a  planetary  reduction  and 

proceeded  by  two  spiral  bevel  input  reductions. 

The  program  allows  any  planetary  unit  to  be  composed  of 

stepped  or  unstepped  planets.  It  can  simulate  transmission  designs  at 
different  power  levels  and  load  duty  cycles.  The  program  can 

calculate  the  lives  and  dynamic  capacities  of  a  single  unit  or  the 
transmission  as  a  whole. 

This  report  includes  a  development  of  the  theory  behind  the 
program  model,  a  listing  of  the  program  in  fortran  source  code  and 
examples  illustrating  the  use  of  the  program. 
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APPENDIX  A 
PROGRAM  INPUT 


HELICOPTER  TRANSMISSION  ANALYSIS 

ENTER  THE  NUMBER  FOR  THE  TYPE  OF  TRANSMISSION 

SPIRAL  BEVEL . 

P!  flNFTARY 

SPIRAL  BEVEL ’  +  ’ PLANETARY "!!!!!!!!!!!!!!!!!!! 

SPIRAL  BEVEL  +  PLANETARY  +  PLANETARY . 

DUAL  SPIRAL  BEVEL . 

DUAL  SPIRAL  BEVEL  +  PLANETARY . 

DUAL  SPIRAL  BEVEL  +  PLANETARY  +  PLANETARY.... 
SPIRAL  BEVEL  +  DUAL  SPIRAL  BEVEL  +  PLANETARY. 


WHAT  IS  THE  INPUT  TORQUE  OF  THE  TRANSMISSION 
3262 

WHAT  IS  THE  INPUT  SPEED  OF  THE  TRANSMISSION 
6180 


SPIRAL  BEVEL  GEAR  UNIT  INPUTS 


i 


DO  YOU  WISH  TO  USE  A  DATA  SET 
ANSWER  YES  OR  NO 
NO 

WHAT  IS  THE  NUMBER  OF  TEETH  ON  THE  PINION 

19 

WHAT  IS  THE  NUMBER  OF  TEETH  OF  THE  GEAR 
71 

WHAT  IS  THE  CONE  DISTANCE  OF  THE  GEAR  MESH 
5.1999 

WHAT  IS  THE  NORMAL  PRESURE  ANGLE  (DEG) 

20 

WHAT  IS  THE  FACE  WIDTH  OF  THE  GEAR  MESH  (IN) 

1.8 

WHAT  IS  THE  SPIRAL  ANGLE  OF  THE  PINION 
25 


03  Ot  U1 CO  N  »-* 


WHAT  IS  THE  DIRECTION  OF  PINION  ROTATION 
LOOKING  FROM  THE  APEX  TO  THE  FACE  OF  THE  PINION 
(COUNTERCLOCKWISE  INPUT  1) 

(CLOCKWISE  INPUT  -1  ) 

-1 

WHAT  IS  THE  HAND  OF  THE  SPIRAL  ANGLE  ON  THE  PINION 
(RIGHT  INPUT  I) 

(LEFT  INPUT  -1) 

-1 

WHAT  IS  THE  SHAFT  ANGLE  BETWEEN  THE  CENTER  LINE  OF  THE 
PINION  SHAFT  AND  THE  CENTER  L  TNE  OF  THE  GEAR  SHAFT  (DEG) 
95 

WHAT  IS  THE  MESH  MATERIAL  CONSTANT  (PSI) 

35000 

WHAT  IS  THE  MESH  WEIBULL  EXPONENT 
2.5 

WHAT  IS  THE  MESH  LOAD-LIFE  FACTOR 
4.3 

WHAT  IS  i HE  LIFE  ADJUSTMENT  FACTOR  OF  THE  BEARINGS 
2.5 


NUMBER  OF  TEETH  ON  PINION 

19.000 

NUMBER  OF  TEETH  ON  GEAR 

71.000 

CONE  DISTANCE 

5.19990 

NORMAL  PRESSURE  ANGLE 

20.00000 

FACE  WIDTH 

1.80000 

SPIRAL  ANGLE 

25.00000 

DIRECTION  OF  ROTATION 

-1.00000 

HAND  OF  SPIRAL 

-1.00000 

SHAFT  ANGLE  BETWEEN  PINION  AND  GEAR 

95.00000 

GEAR  MESH  MATERIAL  CONSTANT 

35000.00000 

WEIBULL  EXPONENT 

2.50000 

MESH  LOAD  LIFE  FACTOR 

4.30000 

DO  YOU  WISH  TO  CHANGE  ANY  OF  THESE  PARAMETERS 
ENTER  1  TO  CHANGE 
0 

PINION  MOUNTING 

WHICH  CASE  OF  BEARING  PLACEMENT  IS  BEING  USED 
CASE  #  1 


BEARING . 

#1 

-GEAR - 

— 

---BEARING 

*2 

* - A - 

★ 

--B  — 

★ 

CASE  #  2 

GEAR . I 

* - A - 

BEARING-- 

#1 

_ ★ 

---BEARING 

*2 

#--- . - 

1 

— B - 

. # 

WHICH  BEARING 

CARRIES 

THE 

THRUST  LOAD 

BEARING  #1  OR 

BEARING 

*2 

2 


ENTER  DISTANCE  A  -  DISTANCE  FROM  *  TO  *  (IN) 

1.3 

ENTER  DISTANCE  B  -  DISTANCE  FROM  *  TO  *  (IN) 

2.5 

CASE  NUMBER  1 

BEARING  TAKING  THE  THRUST  LOAD  2 

DISTANCE  A  1.3000 

DISTANCE  B  2.5000 

DO  YOU  WISH  TO  CHANGE  ANY  OF  THESE  PARAMETERS 
ENTER  1  TO  CHANGE 
0 

PINION  BEARING  #1 

TYPE  OF  BEARING  -  ENTER  NUMBER 

1  -  SINGLE  ROW  BALL  BEARING 

2  -  DOUBLE  ROW  BALL  BEARING 

3  -  SINGLE  ROW  ROLLER  BEARING 

4  -  DOUBLE  ROW  ROLLER  BEARING 

5  -  SINGLE  ROW  TAPERED  ROLLER  BEARING 

6  -  DOUBLE  ROW  TAPERED  ROLLER  BEARING 
3 

ENTER  THE  BASIC  DYNAMIC  CAPACITY  OF  BEARING 
14000 

ENTER  THE  ROTATION  FACTOR 
1.0  FOR  INNER  RACE  ROTATION 
1.2  FOR  OUTER  RACE  ROTATION 
1.0 

WHAT  IS  THE  WEIBULL  EXPONENTFOR  THE  BEARING 

1.5 


TYPE  OF  BEARING  3 

NUMBER  OF  ROLLING  ELEMENTS  0.00000 

DIAMETER  OF  ROLLING  ELEMENTS  0.00000 

CONTACT  ANGLE  (BALL  BEARING  ONLY!  0.00000 

RADIAL  TO  THRUST  RATIO 

(TAPER  ROLLER  BEARING  ONLY)  0.00000 

BASIC  DYNAMIC  CAPACITY  14000.00000 

ROTATION  FACTOR  1.00000 

WEIBULL  EXPONENT  1.50000 


DO  YOU  WISH  TO  CHANGE  ANY  OF  THESE  PARAMETERS 
ENTER  1  TO  CHANGE 
0 

PINION  BEARING  #2 

TYPE  OF  BEARING  -  ENTER  NUMBER 

1  -  SINGLE  ROW  BALL  BEARING 

2  -  DOUBLE  ROW  BALL  BEARING 

3  -  SINGLE  ROW  ROLLER  BEARING 

4  -  DOUBLE  ROW  ROLLER  BEARING 

5  -  SINGLE  ROW  TAPERED  ROLLER  BEARING 

6  -  DOUBLE  ROW  TAPERED  ROLLER  BEARING 


2 


i 


NUMBER  OF  BALLS  OR  ROLLERS 
14 

DIAMETER  OF  BALLS  OR  ROLLERS 
.5625 

BEARING  CONTACT  ANGLE 
35 

ENTER  THE  BASIC  DYNAMIC  CAPACITY  OF  BEARING 
25000 

ENTER  THE  ROTATION  FACTOR 
1.0  FOR  INNER  RACE  ROTATION 
1.2  FOR  OUTER  RACE  ROTATION 
1. 

WHAT  IS  THE  WEIBULL  EXPONENT  FOR  THE  BEARING 
1.5 


TYPE  OF  BEARING  2 

NUMBER  OF  ROLLING  ELEMENTS  14.00000 

DIAMETER  OF  ROLLING  ELEMENTS  0.56250 

CONTACT  ANGLE  (BALL  BEARING  ONLY!  35.00000 

RADIAL  TO  THRUST  RATIO 

(TAPER  ROLLER  BEARING  ONLY)  0.00000 

BASIC  DYNAMIC  CAPACITY  25000.00000 

ROTATION  FACTOR  1.00000 

WEIBULL  EXPONENT  1.50000 


DO  YOU  WISH  TO  CHANGE  ANY  OF  THESE  PARAMETERS 
ENTER  1  TO  CHANGE 
0 

GEAR  MOUNTING 


WHICH  CASE 

OF  BEARING 

PLACEMENT  IS  ! 

CASE  #  1 

BEARING' - 

#1 

- GEAR - 

— 

--BEARING 

*2 

* . A--- 

^  k 

--B-- 

★ 

CASE  *  2 

GEAR - 

* - a--- 

---BEARING-- 

#1 

■k 

—BEARING 

*2 

# - 

2 

- B - 

- # 

WHICH  BEARING  CARRIES  THE  THRUST  LOAD 
BEARING  #1  OR  BEARING  *2 
2 

ENTER  DISTANCE  A  -  DISTANCE  FROM  *  TO  *  (IN) 
.9 

ENTER  DISTANCE  B  -  DISTANCE  FROM  *  TO  *  (IN) 

2.6 


i 
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2 

2 


-0.9000 

2.6000 


CASE  NUMBER 

BEARING  TAKING  THE  THRUST  LOAD 
DISTANCE  A 
DISTANCE  B 

DO  YOU  WISH  TO  CHANGE  ANY  OF  THESE  PARAMETERS 
ENTER  1  TO  CHANGE 
0 

PINION  BEARING  #1 

TYPE  OF  BEARING  -  ENTER  NUMBER 

1  -  SINGLE  ROW  BALL  BEARING 

2  -  DOUBLE  ROW  BALL  BEARING 

3  -  SINGLE  ROW  ROLLER  BEARING 

4  -  DOUBLE  ROW  ROLLER  BEARING 

5  -  SINGLE  ROW  TAPERED  ROLLER  BEARING 

6  -  DOUBLE  ROW  TAPERED  ROLLER  BEARING 
3 

ENTER  THE  BASIC  DYNAMIC  CAPACITY  OF  BEARING 
20000 

ENTER  THE  ROTATION  FACTOR 
1.0  FOR  INNER  RACE  ROTATION 
1.2  FOR  OUTER  RACE  ROTATION 
1.0 

WHAT  IS  THE  WEIBULL  EXPONENTFOR  THE  BEARING 
1.5 


TYPE  OF  BEARING  3 

NUMBER  OF  ROLLING  ELEMENTS  0.00000 

DIAMETER  OF  ROLLING  ELEMENTS  0.00000 

CONTACT  ANGLE  (BALL  BEARING  ONLY]  -0.00000 

RADIAL  TO  THRUST  RATIO 

(TAPER  ROLLER  BEARING  ONLY)  0.00000 

BASIC  DYNAMIC  CAPACITY _  20000.00000 

ROTATION  FACTOR _  1.00000 

WEIBULL  EXPONENT _  1.50000 


DO  YOU  WISH  TO  CHANGE  ANY  OF  THESE  PARAMETERS 
ENTER  1  TO  CHANGE 
0 

PINION  BEARING  #2 

TYPE  OF  BEARING  -  ENTER  NUMBER 

1  -  SINGLE  ROW  BALL  BEARING 

2  -  DOUBLE  ROW  BALL  BEARING 

3  -  SINGLE  ROW  ROLLER  BEARING 

4  -  DOUBLE  ROW  ROLLER  BEARING 

5  -  SINGLE  ROW  TAPERED  ROLLER  BEARING 

6  -  DOUBLE  ROW  TAPERED  ROLLER  BEARING 

2 


NUMBER  OF  BALLS  OR  ROLLERS 
25 

DIAMETER  OF  BALLS  OR  ROLLERS 
.375 

BEARING  CONTACT  ANGLE 
27 

ENTER  THE  BASIC  DYNAMIC  CAPACITY  OF  BEARING 
19076 

ENTER  THE  ROTATTGN  FACTOR 
1.0  FOR  INNER  RACE  ROTATION 
1.2  FOR  OUTER  RACE  ROTATION 
1. 

WHAT  IS  THE  WEIBULL  EXPONENT  FOR  THE  BEARING 
1.5 


TYPE  OF  BEARING 

NUMBER  OF  ROLLING  ELEMENTS 

DIAMETER  OF  ROLLING  ELEMENTS 

CONTACT  ANGLE  (BALL  BEARING  ONLT! 

RADIAL  TO  THRUST  RATIO 

(TAPER  ROLLER  BEARING  ONLY) 

BASIC  DYNAMIC  CAPACITY 
ROTATION  FACTOR 
WEIBULL  EXPONENT 


25.00000 

0.37500 

27.00000 


0.00000 
19076.00000 
1.00000 
1 . 50000 


DO  YOU  WISH  TO  CHANGE  ANY  OF  THESE  PARAMETERS 
ENTER  1  TO  CHANGE 
0 


PLANETARY  GEAR  UNIT  INPUTS 


DO  YOU  WISH  TO  USE  A  DATA  FILE  (YES  OR  NO) 

NO 

PLANETARY  TRANSMISSION  RELIABILTY  ANALYSIS 


(ALL  NUMERICAL  INPUT  MUST  BE  IN  F-FORMAT) 


20895 


WHAT  IS  THE  BASIC  DYNAMIC  CAPACITY  OF  ONE  PLANET  BEARING?  (LB ( 


WHAT  IS  THE  COMPOSITE  LIFE  ADJUSTMENT  FACTOR? 


WHAT  IS  THE  OUTER  RACE  ROTATION  FACTOR? 


WHAT  IS  THE  WEIBULL  FACTOR  FOR  THE  BEARINGS? 


WHAT  IS  THE  LOAD-LIFE  FACTOR  FOR  THE  BEARINGS? 


HOW  MANY  PLANET  BEARINGS  ARE  IN  THE  TRANSMISSION? 


IS  THE  DIAMETRAL  PITCH  THE  SAME  FOR  BOTH  MESHES? 

NO 

ENTER  THE  DIAMETRAL  PITCH  OF  THE  SUN  MESH  FIRST, 

THEN,  ENTER  THE  DIAMETRAL  PITCH  OF  THE  RING  MESH.  (TEETH/IN) 
8.8710 
9.1429 

HOW  MANY  TEETH  DOES  THE  SUN  GEAR  HAVE  ON  IT? 

27 

IS  THE  PRESSURE  ANGLE  FOR  THE  SUN  MESH  AND 
THE  RING  MESH  THE  SAME? 

NO 

ENTER  THE  PRESSURE  ANGLE  FOR  THE  SUN  MESH  FIRST, 

THEN  ENTER  THE  PRESSURE  ANGLE  OF  THE  RING  MESH.  (DEG) 

20 

14.0682 

WHAT  IS  THE  FACE  WIDTH  OF  THE  SUN  MESH?  (IN) 

3.178 

WHAT  IS  THE  WEIBULL  EXPONENT  OF  THE  SUN  MESH? 

2.5 

WHAT  IS  THE  LOAD-LIFE  FACTOR  OF  THE  SUN  MESH? 

4.3 

WHAT  IS  THE  MATERIAL  CONSTANT  OF  THE  SUN  ME.  H?  (PSI) 

20800 

DOES  THE  TRANSMISSION  HAVE  STEPPED  PLANETS? 

YES 

ENTER  THE  NUMBER  OF  TEETH  ON  ONE  PLANET  MESHED 
WITH  THE  SUN,  THEN  ENTER  THE  NUMBER  OF  TEETH  ON  THE 
PLANET  MESHED  WITH  THE  RING. 

35 

35 

HOW  MANY  TEETH  ARE  ON  THE  RING  GEAR? 

99 

WHAT  IS  THE  FACE  WIDTH  OF  THE  RING  GEAR  MESH?  (IN) 

2.540 

WHAT  IS  THE  WEIBULL  EXPONENT  OF  THE  RING  GEAR  MESH? 

2.5 

WHAT  IS  THE  LOAD-LIFE  FACTOR  OF  THE  RING  GEAR  MESH? 

4.3 

WHAT  IS  THE  MATERIAL  CONSTANT  OF  THE  RING  GEAR  MESH?  (TEETH/IN) 

20800 


APPENDIX  B 


PROGRAM  OUTPUT 


SPIRAL  BEYEL  GEAR  UNIT 


GEAR  MESH  CHARACTERISTICS 


PITCH 

NORMAL  PRESSURE  ANGLE 
SPIRAL  ANGLE 

HAND  OF  THE  SPIRAL  OF  THE  PINION  GEAR 
FACE  WIDTH 
CONE  DISTANCE 

INPUT  SPEED  OF  THE  PINION  SHAFT 
OUTPUT  SPEED  OF  GEAR  SHAFT 
DIRECTION  OF  INPUT  SHAFT  ROTATION 
INPUT  TORQUE  OF  THE  PINION  SHAFT 
OUTPUT  TORQUE  OF  THE  GEAR  SHAFT 
ANGLE  BETWEEN  INPUT  AND  OUTPUT  SHAFT 


8.39 
20.00 
25.00 
-1.000 
1.800  IN 
5.200  IN 
6180.00  RPM 
1653.80  RPM 
-1.000 

3262.00  IN-LB 
12189.58  IN-LB 
95.00  DEG 


PINION  CHARACTERISTICS  AND  MOUNTING 


NUMBER  OF  TEETH 

PITCH  ANGLE 

PITCH  DIAMETER 

REFERENCE  PITCH  DIAMETER 

ADDENDUM 

DEDENDUM 

FORCES  ON  A  TOOTH  IN  THE 

AXIAL  FORCE 
RADIAL  FORCE 
TANGENTIAL  FORCE 
TOTAL  FORCE 

DYNAMIC  CAPACITY  IN  FORCE 


19.00 
15.27  DEG 
2.26  IN 
1.174  IN 
0.144  IN 
0.230  IN 

MESH 

991.4  LB 
-1469.9  LB 
-2881.0  LB 
3382.8  LB 
4712.7  LB 


MOUNTING  CHARACTERISTICS 

TYPE  OF  MOUNTING 

1 

DISTANCE  A 

1.300 

DISTANCE  B 

2.500 

AXIAL  LOAD 

0.00  LBS 

RADIAL  LOAD 

1262.43 

LBS 

TANGENTIAL  LOAD 

1895.38 

LBS 

TOTAL  EQUIVALENT  FORCE 

2277.33 

LBS 

BASIC  DYNAMIC  CAPACITY  OF 

BEARING 

#1 

7771.4 

LBS 

AXIAL  LOAD 

991.35 

LBS 

RADIAL  LOAD 

207.48 

LBS 

TANGENTIAL  LOAD 

985.60 

LBS 

TOTAL  EQUIVALENT  FORCE 

1665.07 

LBS 

BASIC  DYNAMIC  CAPACITY  OF 

BEARING 

#2 

13084.3 

LBS 

DYNAMIC  CAPACITY  IN  FORCE 

GEAR  CHARACTERISTICS  AND  MOUNTING 

NUMBER  OF  TEETH 

71.00 

PITCH  ANGLE 

79.73  DEG 

PITCH  DIAMETER 

8.46  IN 

REFERENCE  PITCH  DIAMETER 

23.738  IN 

ADDENDUM 

0.058  IN 

DEDENDUM 

0.172  IN 

FORCES  ON  A  TOOTH  IN  THE  MESH 

AXIAL  FORCE 

-1377.9  LB 

RADIAL  FORCE 

1115.7  LB 

TANGENTIAL  FORCE 

-2881.0  LB 

TOTAL  FORCE 

3382.8  LB 

DYNAMIC  CAPACITY  IN  FORCE 

5664.4  LB 

MOUNTING  CHARACTERISTICS 

TYPE  OF  MOUNTING 

2 

DISTANCE  A 

-0.900 

DISTANCE  B 

2.600 

AXIAL  LOAD 

0.00  LBS 

RADIAL  LOAD 

-5135.78  LBS 

TANGENTIAL  LOAD 

4406.21  LBS 

TOTAL  EQUIVALENT  FORCE 

6766.90  LBS 

BASIC  DYNAMIC  CAPACITY  OF  BEARING  #1 

16553.4  LBS 

AXIAL  LOAD 

RADIAL  LOAD 

TANGENTIAL  LOAD 

TOTAL  EQUIVALENT  FORCE 

BASIC  DYNAMIC  CAPACITY  OF  BEARING  #2 

DYNAMIC  CAPACITY  IN  FORCE 


-1377.92  LBS 
4020.09  LBS 
-1525.23  LBS 
5374.48  LBS 
15492.9  LBS 


DYNAMIC  CAPACITY  AND  LIFE  IN  TERMS  OF 
OUTPUT  TORQUE  AND  SPEED 


INPUT  PINION 


DYNAMIC  CAPACITY 

LOAD  LIFE  EXPONENT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

LIFE  IN  HOURS 

WEIBULL  EXPONENT 


79248.2031  LB-IN 
4.3000 
4.1608 
195.6793 
2.5000 


INPUT  BEARING  #1 


DYNAMIC  CAPACITY 

LOAD  LIFE  EXPONENT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

LIFE  IN  HOURS 

WEIBULL  EXPONENT 


194120.0313  LB-IN 
3.3000 
57.4310 
2700.9629 
1 . 5000 


INPUT  BEARING  #2 


DYNAMIC  CAPACITY 

LOAD  LIFE  EXPONENT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

LIFE  IN  HOURS 

WEIBULL  EXPONENT 


447005.4375  LB-IN 
3.0000 
485.2344 
22820.4141 
1 . 5000 


OUTPUT  GEAR 


DYNAMIC  CAPACITY 

LOAD  LIFE  EXPONENT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

LIFE  IN  HOURS 

WEIBULL  EXPONENT 


95251.9375  LB-IN 
4.3000 
9.1765 
431.5667 
2.5000 


OUTPUT  BEARING  #1 


DYNAMIC  CAPACITY 

LOAD  LIFE  EXPONENT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

LIFE  IN  HOURS 

WEIBULL  EXPONENT 


139153.4688  LB-IN 
3 . 3000 
19.1445 
900.3616 


OUTPUT  BEARING  #2 


DYNAMIC  CAPACITY 

LOAD  LIFE  EXPONENT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

LIFE  IN  HOURS 

WEIBULL  EXPONENT 


163979.9688  LB-IN 
3.0000 
23.9544 
1126.5688 
1.5000 


INPUT  TORQUE. 
OUTPUT  TORQUE 
INPUT  SPEED.. 
OUTUT  SPEED.. 


12189.58008  LB-IN 
56884.71094  LB-IN 
1653.80273  RPM 
354.38629  RPM 


PLANET  BEARING 


NUMBER  OF  PLANETS .  3.00000 

ROTATIONAL  FACTOR .  1.00000 

DYNAMIC  CAPACITY  (CATALOG  VALUE) .  20895.00000  LBS 

DYNAMIC  CAPACITY  (SYSTEM  VALUE) .  20107.14844  LBS 

TOTAL  FORCE .  5421.77441  LBS 


SUN  GEAR 


NUMBER  OF  TEETH .  27.00000 

PITCH  OF  THE  MESH .  8.87100 

PRESSURE  ANGLE .  20.00000  DEG 

FACE  WIDTH .  3.17800  IN 

MATERIAL  CONSTANT  OF  THE  MESH .  20800.00000  PSI 

DYNAMIC  CAPACITY  .  8184.11816  LBS 

FORCE  ON  GEAR  TOOTH .  2669.96924  LBS 


RING  GEAR 


NUMBER  OF  TEETH .  99.00000 

PITCH  OF  THE  MESH .  9.14290 

PRESSURE  ANGLE .  14.06820  DEG 

FACE  WIDTH .  2.54000  IN 

MATERIAL  CONSTANT  OF  THE  MESH .  20800.00000  PSI 

DYNAMIC  CAPACITY  .  19206.60547  LBS 

FORCE  ON  GEAR  TOOTH .  2751.80518  LBS 


PLANET  GEAR 


PLANET-SUN  GEAR 


NUMBER  OF  TEETH .  35.00000 

PITCH  OF  THE  MESH .  8.87100 

PRESSURE  ANGLE .  20.00000  DEG 

FACE  WIDTH .  3.17800  IN 

MATERIAL  CONSTANT  OF  THE  MESH .  20800.00000  PSI 

DYNAMIC  CAPACITY  .  10956.11523  LBS 

FORCE  ON  GEAR  TOOTH .  2669.96924  LBS 

PLANET-RING  GEAR 

NUMBER  OF  TEETH .  35.00000 

PITCH  OF  THE  MESH .  9.14290 

PRESSURE  ANGLE .  14.06820  DEG 

FACE  WIDTH .  2.54000  IN 

MATERIAL  CONSTANT  OF  THE  MESH .  20800.00000  PSI 

DYNAMIC  CAPACITY  .  21448.64063  LBS 

FORCE  ON  GEAR  TOOTH .  2751.80518  LBS 


DYNAMIC  CAPACITY  AND  LIFE  IN  TERMS  OF 
OUTPUT  TORQUE  AND  SPEED 


PLANET  BEARING 


DYNAMIC  CAPACITY 

LOAD  LIFE  EXPONENT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

LIFE  IN  HOURS 

WEIBULL  EXPONENT 


210962.1875  LB-IN 
3.3300 
78.6079 
3696.9014 
1 . 5000 


SUN  GEAR 


DYNAMIC  CAPACITY 

LOAD  LIFE  EXPONENT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

LIFE  IN  HOURS 

WEIBULL  EXPONENT 


174365.7500  LB-IN 
4.3000 
123.5385 
5809.9727 
2 . 5000 


AD-Ai 72  564  SVSTEM  LIFE  AND  RELIABILITV  MODELING  FOR  HELICOPTER  2/1 

TRANSMISSIONS'.'!/)  AKRON  UNIV  OH  DEPT  OF  MECHANICAL 
ENGINEERING  M  SAVAGE  ET  AL  APR  8b  NASA-CR-396? 

UNCLASSIFIED  NAGi-55  F/G  ii/9  NL 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  OF  STANDARDS  1963  A 


DYNAMIC  CAPACITY 

LOAD  LIFE  EXPONENT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

LIFE  IN  HOURS 

WEIBULL  EXPONENT 


397034.7500  LB-IN 
4.3000 
4250.9033 
199918.5625 
2.5000 


PLANET-SUN  GEAR 

DYNAMIC  CAPACITY 

LOAD  LIFE  EXPONENT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

LIFE  IN  HOURS 

WEIBULL  EXPONENT 


233424.2188  LB-IN 
4.3000 
433.0579 
20366.5664 
2.5000 


PLANET-RING  GEAR 


DYNAMIC  CAPACITY 

LOAD  LIFE  EXPONENT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

LIFE  IN  HOURS 

WEIBULL  EXPONENT 


443381.5625  LB-IN 
4.3000 
6833.7959 
321391.1250 
2.5000 


SPIRAL  BEVEL  UNIT 


i 


DYNAMIC  CAPACITY 

LOAD  LIFE  EXPONENT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

LIFE  IN  HOURS 

WEIBULL  EXPONENT 


77358.9844  LB-IN 
4.0239 
3.6746 
172.8132 
2.3646 


PLANETARY  UNIT 


DYNAMIC  CAPACITY 

LOAD  LIFE  EXPONENT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

LIFE  IN  HOURS 

WEIBULL  EXPONENT 


153544.4688  LB-IN 
3.5845 
36.4289 
1713.2412 
1.5850 


TOTAL  TRANSMISSION 


DYNAMIC  CAPACITY 

LOAD  LIFE  EXPONENT 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

LIFE  IN  HOURS 

WEIBULL  EXPONENT 


77164.9063  LB-IN 
4.0005 
3.6267 
170.5630 
2.3433 


APPENDIX  C 


PROGRAM  LISTING 


10 


wj 

tv 


101 

102 


C 

C 

C 


WRITE!!,  10) 

FORMAT!// 

1'  HELICOPTER  TRANSMISSION  ANALYSIS'/ 

2'  ENTER  THE  NUMBER  FOR  THE  TYPE  OF  TRANSMISSION'/ 

3'  SPIRAL  BEVEL . 1'/ 

4'  PLANETARY . 2'/ 

S'  SPIRAL  BEVEL  +  PLANETARY . 3'/ 

6'  SPIRAL  BEVEL  +  PLANETARY  +  PLANETARY . 4V 

7'  DUAL  SPIRAL  BEVEL . S'/ 

8'  DUAL  SPIRAL  BEVEL  +  PLANETARY . *,'/ 

9'  DUAL  SPIRAL  BEVEL  +  PLANETARY  PLANETARY . 77 

1'  SPIRAL  BEVEL  -*■  DUAL  SPIRAL  BEVEL  PLANETARY.  ..  8  V ) 

READ! 1/  * ) NT 

IF! NT.  EQ.  1)CALL  SPBV 

IF! NT.  EQ.  2) CALL  PLAN 

IF! NT.  EQ.  3) CALL  SBPL 

IF! NT.  EQ.  4)CALL  SBPLPL 

IF! NT.  EQ.  3 )CALL  DPBV 

IF! NT.  EQ.  6) CALL  DBPL 

IF! NT.  EQ.  7) CALL  DBPLPL 

IF ! NT.  EQ.  8) CALL  SBDBPL 

STOP 

END 

SUBROUTINE  SPBV 

INTEGER  CASEP, CASEG.  PTL,  GTL 

REAL  NP,  NG,  NBP1.  NBP2.  NBG1.  NBG2.  MO.  M01.  LSB 

REAL  LI !6),  D1 !6 ) , El ( 6 ) . HI !6> . P 1 ! 6) .  DYN! 10 ) ,  LI ! 10 > 

FORMAT ! 'WHAT  IS  THE  INPUT  TORQUE  OF  THE  TRANSMISSION') 

FORMAT! 'WHAT  IS  THE  INPUT  SPEED  OF  THE  TRANSMISSION') 

WRITE! 1. 101) 

READ! 1.  *)TI 
WRITE! 1.  102) 

READ! 1.  *>SI 

INPUT  SPIRAL  BEVEL  GEAR  GEOMETRY 

CALL  SPBVIN!NP.  NG.  AO.  PHE.  F,  PH SI.  ROT,  SPR.  THETA.  E.  El  !  1 ) .  PG. 

1PHE1.  PHSI1. THETA1. CASEP. PTL. AP. BP. ITYPEP1. NBP1. DPI. ACPI.  AK1, 
2BDCAP1.  RFP 1 .  El!  2).  ITYPEP2.  NBP2.  DP2,  ACP2,  AK2.  BDCAP2.  RFP2.  El!  3). 
3CASEG.  GTL.  AG.  BO.  ITYPEG1 ,  NB01.  DG1.  ACG1.  AK3.  BDCAG1.  RF01,  El! 9). 
4ITYPEG2.  NBG2,  DG2.  ACG2.  AK4.  BDCA02.  RF02.  El  (6),  MO.  0AMMA1.  GAMMA.  ZZ, 
9ZZ1.  DP.  DO.  RPD.  RP.  ROD.  RO.  HK.  AOO.  AOP.  HT.  BOG.  BOP.  PITCH. 

6ADJP1. ADJP2.  ADJG1,  ADJ02) 
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El <4)*E1 ( 1 > 

PI ( 1 >*PG 
P1(4)*P0 

CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  TRANSMISSION 

TOF-TI*MG 
SOF*SI/MG 
MG1-1.  0 

CALCULATE  LIVES  AND  DYNAMIC  CAPACITIES  OF  SPIRAL  BEVEL 
COMPONENTS  AND  LIFE  OF  THE  TRANSMISSION 

CALL  SPBVCA< 

lTIi  TOF,  SI,  SOF,  MG,  MG1,  NP,  NG, 

2 AO.  GAMMA  1,  ROT,  SPR.  PHE1,  PHSI1.  ZZ1, 

3PTL,  AP,  BP,  RP,  OTL,  AG,  BG,  RO. 

4ITYPEP1,  RFP1,  NBP1,  DPI,  ACPI,  BDCAP1,  AK1,  El  (2),  ADJP1. 
SITYPEP2,  RFP2.  NBP2.  DP2,  ACP2,  BDCAP2,  AK2,  El  <3>.  ADJP2. 

61 TYPEG1 ,  RFG1 ,  NBG1 ,  DG1 ,  ACOl ,  BDCAG1 ,  AK3,  El  ( 5  > ,  ADJG1 , 
7ITYPEG2,  RFG2,  NBG2,  DG2,  ACG2,  BDCAG2,  AK4,  El  (6),  ADJG2, 

8F,  E,  PG,  EKD.RPD,  RGD, 

9PXP,  PYP,  PZP,  TOTFOR.  PXG,  PYG.  PZO,  TOTFOR, 

1R1XP, R1YP, R1ZP, R2XP, R2YP, R2ZP, 

2R1XG,  R1YG,  R1ZG,  R2XG,  R2YG.  R2Z0, 

3L1(2),  HI  (2),  TOFORP1,  PI  (2),  BDCAPIO,  Dl<2>. 

4L1 (3),  HI (3),  T0F0RP2,  PI (3) , BDCAP20, Dl<3>. 

5L1(9).  HI  (5),  TOFORG1,  PI  (3),  BDCAGIO,  Dl<3>, 

6L1(6),  HI  (6),  T0F0RG2,  PI  (6),  BDCAG20,  Dl<6), 

7L1  <  1 ) ,  HI  (  1  ) ,  DCAP,  Dl(l), 

8L1(4),H1(4),  DC  AG,  D1  (4), 

9LSB. HSB,  ESB ) 

PRINT  OUT  LIVES  AND  DYNAMIC  CAPACITIES  OF  COMPONENTS 

CALL  SPBVOT<PD,  PHE,  PHSI,  SPR,  F,  AO,  SI,  SOF,  ROT,  TI,  TOF,  THETA 
1NP, GAMMA, DP, RPD, AOP, BOP, PITCH, 

2PXP, PYP, PZP, TOTFOR, DCAP, CASEP,  AP,  BP, 

3R1XP, R1YP, R1ZP, TOFORP1 ,  BDCAPIO. 

4R2XP, R2YP, R2ZP, TOFORP2, B DCAP 20, 

5NG,  ZZ,  DG,  RGD,  AOG,  BOG, 

6PXG.  PYG,  PZG,  TOTFOR,  DC  AG,  CASED,  AO,  BO, 

7R1X0,  R1YG,  R1ZG,  T0F0RG1 ,  BDCAGIO. 

8R2XG, R2YG, R2ZG, T0F0RC2,  BDCAG20, 


c 

c 

c 


9D1,  PI,  LI#  HI#  El ) 


f 


SS 


10 


C 

c 

c 

c 


c 

c 

c 


20 

C 

C 

c 


ESTIMATE  10  PERCENT  DYNAMIC  CAPACITY  OF  TRANSMISSION 

DM I N«D 1(1) 

DO  10  1-2,  6 

IF(D1(I).  LT.  DMIN)DMIN=D1 ( I > 

DELTATO-  1*DMIN 
DELTAT I -DELTATO /MG 
DTI-O.  0 
DTO-O.  0 

START  COUNTER  FOR  DYNAMIC  CAPACITIES  BETWEEN  10  AND  100  PERCENT 
OF  TRANSMISSION  DYNAMIC  CAPACITY 

DO  20  I»l, 10 

DTI-DTI+DELTATI 
DTO-DTO+DELTATO 
DYN( I )=DTO 

CALCULATE  LIFE  FOR  EACH  DYNAMIC  CAPACITY 
CALL  SPBVCA ( 

1DTI ,  DTO,  SI,  SOF,  MG,  M01,  NP,  NO, 

2A0,  GAMMA  1 ,  ROT,  SPR.  PHE1,  PHSI1,  ZZ1, 

3PTL,  AP,  BP,  RP,  OTL,  AO,  BO,  RO, 

4ITYPEP1,  RFP1,  NBP1,  DPI,  ACPI,  BDCAPl,  AK1,  El  (2),  ADJP1. 

5ITYPEP2,  RFP2,  NBP2,  DP2,  ACP2,  BDCAP2,  AK2,  El  (3),  ADJP2, 

6ITYPE01,  RF01.  NBG1,  DG1,  AC01,  BDCA01,  AK3,  El  (5),  ADJG1, 

7ITYPEG2,  RFG2,  NB02,  DG2,  ACG2,  BDCAG2,  AK4,  El  (6),  ADJG2, 

8F,  E,  PO,  El  ( 1 ) ,  RPD,  RGD, 

9PXP,  PYP,  PZP,  TOTFOR,  PXO,  PYO.  PZG,  TOTFOR, 

1R1XP, R1YP, R1ZP, R2XP, R2YP, R2ZP, 

2R1XG,  R1Y0,  R1Z0,  R2XG,  R2YG,  R2ZG, 

3L1  (2),  HI  (2),  T0F0RP1,  PI  (2),  BDCAP10,  D1  (2) , 

4L1<3),  HI  (3),  T0F0RP2,  PI  (3),  BDCAP20,  D1  (3), 

5L1(5),  HI (5),  T0F0RG1,  PI (5), BDCA010, D1 ( 5 > , 

6L1 (6) ,  HI <6 ) ,  T0F0RG2, P 1 <  6 ) , BDCAG20, D1 ( 6 ) , 

7L1 ( 1 ) . HI ( 1 ) t DCAP,  D1 (1 ), 

8L1<4), HI (4) , DC AG, Dl<4), 

9LI  ( I ),  HSB1,  ESB1  ) 

CONTINUE 

CALCULATE  DYNAMIC  CAPACITY  AND  LOAD  LIFE  EXPONENT  FOR  TRANSMISSION 
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& 


I 

! 


CALL  CAPCDYN,  LI,  10#  DSB,  PSP ) 

C 

C  PRINT  OUT  LIFE  AND  DYNAMIC  CAPACITY  OF  TRANSMISSION 
C 

WRITE < 1, 1220) 

1 220  FORMAT (  '  TOTAL  TRANSM ISSION'/) 

CALL  DPLHECDSB,  PSP<  LSB. HSB. ESB ) 

STOP 

END 

SUBROUTINE  SBPL 

INTEGER  CASEP,  CASEG, PTL/ GTL 

REAL  NP. NO. NBP 1  * NBP2, NBG1 , NBG2, MG. LSB 

REAL  LI (6). D1C6),  El (6).  HI (6) *  PI (6). DYN( 10) ,  LI < 10) 

REAL  NS.  NPS.  NPR.  NR.  N.  LS.  LR.  LPLAN 

REAL  NCOMPO),  AD1(9),  API  (5).  AL1(5).  AH1C3),  AE1(3).  ALK10) 

REAL  MGS, MGP. ZNCOMP(ll), ZEl(ll), ZL1 ( 1 1 ) , LTRANS. ZLI(IO) 

101  FORMAT < 'WHAT  IS  THE  INPUT  TORQUE  OF  THE  TRANSMISSION') 

102  FORMAT < 'WHAT  IS  THE  INPUT  SPEED  OF  THE  TRANSMISSION') 

WRITE(1, 101) 

READC1. *)TI 
WRITEd,  102) 

READ( 1, *)SI 
C 

C  READ  IN  VALUES  OF  THE  SPIRAL  BEVEL  UNIT 

C 

CALL  SPBVINCNP.  NG.  AO.  PHE.  F,  PHSI,  ROT,  SPR,  THETA.  E,  El  Cl ) ,  PG, 

1PHE1,  PHSI 1 » THETA 1,  CASEP, PTL, AP, BP,  ITYPEP 1 . NBP 1 , DPI, ACPI, AK1 , 
2BDCAP1,  RFP1,  El  (2) ,  ITYPEP2,  NBP2,  DP2,  ACP2,  AK2,  BDCAP2,  RFP2,  El  (3), 
3CASEG,  GTL,  AG,  BG,  ITYPEG1 ,  NBG1,  DG1,  ACG1,  AK3,  BDCAG1 ,  RFG1,  El  (5), 
4ITYPEG2.  NBG2,  DG2.  ACG2,  AK4,  BDCAG2,  RFG2,  El  (6),  MG.  GAMMA  1 »  GAMMA,  ZZ, 
5ZZ1,  DP,  DG,  RPD,  RP,  RGD,  RG,  HK,  AOG,  AOP,  HT,  BOG,  BOP,  PITCH, 

6ADJP1,  ADJP2, AD JG 1 ,  ADJG2) 

C 

E1(4)=E1(1) 

P1(1)*P0 

P1(4)-PG 

C 

C  CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  SPIRAL  BEVEL  UNIT 

C 

TOS»TI*MG 

SOS-SI/MG 

C 

C  READ  IN  VALUES  OF  PLANETARY  UNIT 

C 

CALL  PLANINCCB,  A,  V.  EB,  PB,  N,  NCOMP,  PDS,  PDR,  NS,  PHIS,  PHIS1, 
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3* 


m 


w 


c 

c 

c 


6 

C 

C 

C 

C 


C 

C 

c 


1PHIR,  PHIR1,  WDSMi  ES,  PS.  B1SM.  ISTEP.  NPS.  NPR,  NR,  WORM,  ER,  PR,  BlRM, 
2RPR, RPS, RR,  RS) 

API ( 1 >-PB 
AP 1 ( 2 ) -PS 
AP1(3)-PR 
AP 1(4) —PS 
AP 1(3) -PR 


CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  PLANETARY  UNIT 


TOF-TOS*  U .  +  <  RR+RPS  > / ( RS*RPR  > ) 

SOF-SOS/ U .  +  < RR*RPS ) / ( RS*RPR ) > 

MOS- ( 1 .  + ( RR*RPS ) / C  RS*RPR ) ) 

MOP-1.  0 

INC0MP-6+I STEP 

DO  9  IN-1,6 

ZNCOMP < IN)— 1.  0 

DO  6  IN-1, ISTEP 

ZNCOMP ( IN+6 ) —NCOMP ( IN  > 


CALCULATE  LIFE  AND  DYNAMIC  CAPACITY  OF  SPIRAL  BEVEL  UNIT  COMPONENTS 
CALCULATE  LIFE  OF  SPIRAL  BEVEL  UNIT 


CALL  SPBVCA< 

1TI,  TOF,  SI.  SOF,  MQ,  MQS,  NP,  NO, 

2 AO,  CAMMA1,  ROT,  SPR,  PHE1,  PHSI1,  ZZ1, 

3PTL.  AP,  BP,  RP.  OTL,  AO.  BO,  RO. 

4ITYPEP1.  RFPi,  NBP1.  DPI,  ACPI,  BDCAP1,  AK1,  El  (2),  ADJP1, 
9ITYPEP2,  RFP2,  NBP2,  DP2,  ACP2,  BDCAP2,  AK2,  El  (3),  ADJP2, 
6ITYPE01,  RFOl,  NBOl,  DOl,  ACOl,  BDCAOl,  AK3,  El  (9>,  ADJG1, 
7ITYPE02,  RF02,  NB02,  D02,  AC02,  BDCA02,  AK4,  El  (6),  ADJG2, 
8F,  E,  PO,  El  ( 1 ) ,  RPD,  ROD, 

9PXP,  PYP,  PZP,  TOTFOR, PXO, PYO, PZO, TOTFOR, 

1R1XP, R1YP, R1ZP, R2XP, R2YP,  R2ZP, 

2R1X0.  R1YO.  R1ZO,  R2X0,  R2Y0,  R2ZC, 

3L1(2),  HI  (2),  TOFORP1,  PI  (2),  BDCAPIO.  Dl(2>, 

4L1  (3),  HI  (3),  T0F0RP2,  PI  (3) ,  BDCAP20,  Dl<3>, 
9L1(9),H1(9>,  TOFOROl,  PI  (  9) ,  BDCAOIO,  Dl(9>, 

6L1(6),  HI  (6),  T0F0R02,  PI  (6),  BDCAG20,  Dl(6), 

7L1(1),  Hl(l),  DCAP,  Did), 

8L1  ( 4 ) ,  HI  ( 4 ) ,  DC  AO,  D1  (4) , 

9LSB,  HSB, ESB ) 


PRINT  OUT  RESULTS  FOR  SPIRAL  BEVEL  UNIT 
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/  F  *  *  ■  %  ■ 

‘ T  “  . 


CALL  SPBVOTIPD,  PHE<  PHSI,  SPR,  F,  AO,  SI,  SOS,  ROT,  TI,  TOS,  THETA, 

1NP,  GAMMA,  DP,  RPD,  AOP*  BOP,  PITCH, 

2PXP,  PYP,  PZP,  TOTFOR,  DCAP, CASEP, AP, BP, 

3R1XP,  R1YP,  R1ZP, TOFORP1,  BDCAPIO, 

4R2XP. R2YP, R2ZP, T0F0RP2, BDCAP20, 

5NO,  ZZ,  DO,  ROD,  AOG,  BOO, 

6PX0,  PYO,  PZO,  TOTFOR,  DC  AG,  CASEG,  AO,  BG, 

7R1X0,  R1YO,  R1ZO,  TOFORG1,  B  DC  AGIO, 

8R2X0, R2YG, R2ZG, T0F0RG2, BDCAG20, 

9D1,  Pi,  LI,  HI,  El ) 

C 

C  CALCULATE  LIFE  AND  DYNAMIC  CAPACITY  OF  PLANETARY  UNIT  COMPONENTS 

C  CALCULATE  LIFE  OF  PLANETARY  UNIT 
C 


C 

C 

C 


C 

C 

C 


8 


C 

C 

C 


21 


CALL  PLANCA< I STEP,  NCOMP, MOP, NS,  NPS, NPR, NR. PHIS1. PHIR1, 
IRS,  RPS,  RPR,  RR,  CB,  A,  V,  PB,  N,  EB.  FTT, 

2B1SM,  PS,  ES,  WDSM,  B1RM,  PR,  ER,  WORM, 

3T0S,  TOF,  SOS,  SOF,  CS,  LS.  FS,  CR.  LR,  FR,  ADI,  AL1,  AH1 ,  AE1, 
4LPLAN, HPLAN,  EPLAN ) 


PRINT  OUT  RESULTS  FOR  THE  PLANETARY  UNIT 


CALL  PLANOTt  ISTEP,  N,  V,  CB,  FB»  NS,  PDS.  PHIS,  WDSM,  B1SM.  FS. 
1NR,  PDR,  PHIR,  WDRM,  B1RM,  FR,  NP,  NPS,  NPR,  TOS,  TOF,  SOS,  SOF,  FTT, 
2AD1,  API,  AL1 , AH 1 , AE 1 > 


DEFINE  TRANSMISSION  LIFE  ARRAYS 


DO  8  IE-1, 6 

ZE1(IE)*E1(IE> 

ZL1 ( IE) -LI ( IE) 

DO  9  IE-1, ISTEP 

ZE 1 ( I E+6 ) - AE 1 ( I E ) 

ZL1 ( IE+6)-ALl (IE) 

CALL  LIFEIZL1,  INCOMP,  ZE1,  ZNCOMP, LTRANS,  ETRANS) 
HTRANS-LTR ANS* 1 6666.  667/SOF 


START  COUNTER  FOR  LOADS  BETWEEEN  IS  AND  ISO  PERCENT  OF  DYNAMIC 

CAPACITY 

DM I N— D 1(1) 

DO  21  1-2,6 

IF(DKI).  LT.  DM  I N )  DM  I N-D  1(1) 

DELTATO-.  13*DMIN 
DELTAT I -DELTATO /MGS/MG 
DTO— O. 0 
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DTI*0.  0 
DO  22  1*1, 10 

DTI-DTI+DELTATI 
DTO-DTO+DELTATO 
DYN<I)»DTO 
CALL  SPBVCAl 

1DTI , DTO.  SI.  SOF,  MG. MGS, NP, NG, 

2 AO.  GAMMA  1.  ROT.  SPR,  PHE1,  PHSI1.  ZZ1. 

3PTL,  AP.  BP.  RP,  QTL.  AG.  BG,  RG, 

4ITYPEP1.  RFP1,  NBP1,  DPI,  ACPI,  BDCAP1,  AK1,  El  (2),  ADJP1, 
5ITYPEP2.  RFP2,  NBP2,  DP2,  ACP2,  BDCAP2,  AK2,  El  (3) ,  ADJP2. 
6ITYPEG1,  RFG1.  NBG1,  DG1,  ACG1,  BDCAG1,  AK3,  El  (  5 ) ,  ADJG1. 
7ITYPEG2,  RFG2,  NBG2,  DG2,  ACG2,  BDCAG2,  AK4,  El  (6),  ADJC2, 
8F,  E,  PO.  El  ( 1 ) ,  RPD,  ROD, 

9PXP,  PYP,  PZP.  TOTFOR, PXG, PYG, PZQ, TOTFOR, 

1R1XP,  R1YP,  R1ZP, R2XP, R2YP. R2ZP, 

2R1XG.  R1YG,  R1Z0.  R2XG.  R2YG,  R2ZG, 

3L1  (2),  HI  (2),  T0F0RP1.  PI  (2).  BDCAP10.  Dl(2>, 

4L 1 ( 3 ) , HI (3), T0F0RP2, PI (3) ,  BDCAP20,  Dl(3), 

5L1<5),  HI  (5),  T0F0RG1,  PI  (  5) ,  BDCAG10,  Dl(5>, 

6L1(6). Hl(6). T0F0RG2,  PI (6) .  BDCAG20.  Dl(6), 

7L1(1),  Hl(l).  DCAP,  Dl(l). 

8L1  (4) ,  HI  <4 ) .  DC  AG.  Dl<4>, 

9LI(I). DUMB, DUMB) 

22  CONTINUE 

CALL  CAP ( DYN, LI, 10, DSB, PSP) 

C 

C 


START  COUNTER  FOR  LOADS  BETWEEEN  15  AND  150  PERCENT  OF  DYNAMIC 
CAPACITY 


ADMIN*AD1U) 

DO  23  1*2,  I STEP 

IF(AD1(I).  LT.  ADMIN ) ADM IN* ADI ( I ) 

DELTATO*. 15*ADMIN 
DELTATOS*DELTATO/MGS 
DTO-O.  0 
DTOS-O.  0 

DO  24  1  =  1,  10 

DTOS-DTOS+DELTATOS 
DTO=DTO+DELTATO 
DYN( I ) =DTO 

CALL  PLANCA( ISTEP, NCOMP, MGP, NS, NPS, NPR, NR, PHIS1, PHIR1, 
IRS,  RPS,  RPR,  RR,  CB,  A,  V,  PB,  N,  EB,  FTT , 
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2B1SM,  PS.  ES.  WDSM.  B1RM,  PR.  ER.  WORM. 

3DT0S.  DTO,  SOS.  SOF.  CS.  LS.  FS.  CR.  LR.  FR.  ADI.  AL1.  AH  1 .  AE 1 .  ALI  ( I ) .  DUMB. 

4DUMB ) 

CONTINUE 

CALL  CAP ( DYN, ALI.  10. DPLAN.  PPLAN) 

START  COUNTER  FOR  LOADS  BETWEEEN  15  AND  150  PERCENT  OF  DYNAMIC 
CAPACITY 

IF< ADMIN.  LT.  DMIN )DMIN*ADMIN 
DELTATO=  15*DMIN 
DELT ATOS-DELT ATO / MCS 
DELTATI=DELTATOS/MG 
DTI=0.  O 
DTOS-O.  O 
DT0*0.  0 
DO  20  1  =  1.  10 

DT I =DT I +DELT AT I 
DTOS=DTOS+DELT  ATOS 
DTO=DTO+DELT  ATO 
DYN( I )=DTO 


CALL  SPBVCA( 

1DTI .  DTO,  SI,  SOF.  MO.  MOS,  NP,  NO, 

ZAO,  0AMMA1,  ROT,  SPR.  PHE1,  PHSI1,  ZZ1, 

3PTL.  AP,  BP,  RP,  GTL.  AG,  BG,  RG, 

4ITYPEP1,  RFP 1 ,  NBP1.  DPI,  ACPI,  BDCAP1,  AK1,  El  (2),  ADJP1, 
5ITYPEP2,  RFP2,  NBP2,  DP2,  ACP2,  BDCAP2,  AK2.  El  (3),  ADJP2, 
6ITYPEG1,  RFG1,  NBG1 ,  DG1,  ACG1,  BDCAG1,  AK3,  El  (5),  ADJGt, 
7ITYPEG2,  RFG2,  NBG2,  DG2,  ACG2,  BDCAG2,  AK4,  El  (6).  ADJG2, 

8F,  E,  PG,  El  (  1 ) ,  RPD,  ROD, 

9PXP. PYP. PIP, TOTFOR, PXG, PYG, PZG, TOTFOR, 

1R1XP. R1YP, R1ZP. R2XP,  R2YP,  R2ZP, 

2R1X0.  R1YG,  R1ZG,  R2XG.  R2YG,  R2ZG, 

3L1  (2),  HI  (2).  T0F0RP1,  PI  (2).  BDCAP10,  D1  (2), 

4L1  (3),  HI  (3) ,  T0F0RP2,  PI  (3).  BDCAP20,  Dl<3>, 

5L1  (5).  HI  (5),  T0F0RG1,  PI  (5).  BDCAG10,  D1  <5), 

6L1 (6), HI (6), T0F0RG2, PI (6),  BDCAG20,  D1 (6), 
7L1<1),H1(1),DCAP.D1(1). 

8L1<4),H1<4>,  DCAG,  Dl<4), 

9L 1(1), DUMB, DUMB) 

CALL  PLANCA< ISTEP, NCOMP, MOP, NS,  NPS,  NPR,  NR,  PHIS1,  PHIR1, 
IRS,  RPS,  RPR,  RR,  CB.  A,  V,  PB,  N,  EB,  FTT , 


2B1SM,  PS.  ES.  WDSM.  B1RM,  PR.  ER.  WDRM, 

3DT0S.  DTQ.  SOS.  SOF.  CS.  LS.  FS.  CR.  LR.  FR.  ADI.  AL1.  AH1.  AE1.  ALI  (  I  > .  DUMB. 
4DUMB ) 

DO  12  IE-1,6 

12  ZLKIE)-Ll(IE) 

DO  13  IE-1. ISTEP 

13  ZL 1 ( I E+6 ) = AL 1 ( I E  > 

CALL  LIFE ( ZL1 .  INCOMP.  ZE1.  ZNCOMP.  ZLI(I),  DUMB) 

20  CONTINUE 

CALL  CAP (DYN. ZLI. 10. DTRANS, P TRANS) 

1220  FORMAT!'  TOTAL  TRANSMISSION'/) 

1221  FORMAT ( '  SPIRAL  BEVEL  UNIT'/) 

1222  FORMAT C '  PLANETARY  UNIT'/) 

WRITEd. 1221) 

CALL  DPLHE<DSB. PSP. LSB. HSB. ESB ) 

WRITE! 1. 1222) 

CALL  DPLHE ( DPLAN.  PPLAN, LPLAN, HPLAN,  EPLAN ) 

WRITE! 1. 1220) 

CALL  DPLHE! DTRANS. PTRANS. LTRANS, HTRANS. ETRANS) 

STOP 

END 

SUBROUTINE  SBPLPL 

INTEGER  CASEP.  CASEG.  PTL.  GTL.  BISTEP 

REAL  NP. NG. NBP 1 >  NBP2. NBG1. NBG2.  MG,  LSB 

REAL  Ll!6),  D1 ! 6 ) ,  El ! 6 ) ,  HI (6) ,  P 1 < 6) ,  DYN! 10) ,  LI ( 10) 

REAL  NS.  NPS,  NPR.  NR.  N,  LS.  LR.  LPLAN 

REAL  NCOMPO),  ADI  !3),  API  (3),  ALI  (3),  AH1  (3),  AE1  (3),  ALI!  10) 

REAL  MGS,  MGPA,  MGPB.  ZNCOMP! 16), ZE1 ( 16 ) .  ZLI ! 16 ). LTRANS. ZLI (10) 
REAL  BNCOMP ( 3 ) , BD1 ( 3) . BP  1(5), BL1 ( 3) , BH1 (5), BE 1(5), BLI ( 10) 

101  FORMAT!  'WHAT  IS  THE  INPUT  TORQUE  OF  THE  TRANSMISSION') 

102  FORMAT! 'WHAT  IS  THE  INPUT  SPEED  OF  THE  TRANSMISSION') 

WRITE! I, 101 ) 

READd,  *)TI 
WRITEd,  102) 

READd,  *)SI 
C 

C  READ  IN  VALUES  OF  THE  SPIRAL  BEVEL  UNIT 

C 

CALL  SPBVIN!NP,  NG,  AO,  PHE.  F,  PHSI,  ROT,  SPR,  THETA,  E,  El  (1 ) ,  PG, 

1PHE1,  PHSI  1 ,  THETA  1 .  CASEP,  PTL,  AP,  BP,  ITYPEP1,  NBP1,  DPI,  ACPI,  AK1, 
2BDCAP1,  RFP1,  El  (2),  ITYPEP2,  NBP2,  DP2,  ACP2,  AK2,  BDCAP2,  RFP2,  El  (3), 
3CASEG.  GTL,  AG,  BG.  ITYPEG1,  NBG1,  DG1,  ACG1,  AK3,  BDCAG1,  RFG1,  El  (3), 
4ITYPEG2.  NBG2,  DG2,  ACG2,  AK4,  BDCA02,  RFG2,  El  (6),  MG,  GAMMA1,  GAMMA,  ZZ, 
3ZZ1,  DP,  DO.  RPD,  RP,  RGD,  RG,  HK,  AOO,  AOP,  HT,  BOG,  BOP,  PITCH, 


non  non  nnn  n  n  n  non  no 


6ADJP1.  ADJP2.  ADJOli  ADJG2 ) 


E1<4)«E1C1> 

P1CD-P0 

P1(4)-PG 

CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  SPIRAL  BEVEL  UNIT 

TOS«TI*MG 

SOS-SI/MG 

READ  IN  VALUES  OF  PLANETARY  UNIT 

CALL  PLANIN(CB.  A,  V,  EB.  PB.  N,  NCOMP.  PDS,  PDR.  NS.  PHIS.  PHIS1. 
1PHIR,  PHIR1,  WDSM.  ES.  PS.  B1SM,  ISTEP.  NPS.  NPR.  NR.  WDRM,  ER.  PR.  B1RM, 
2RPR.  RPS.  RR.  RS) 

AP1(1)-PB 
AP1(2)-PS 
AP1<3)-PR 
AP 1(4) —PS 
AP1(5)-PR 

CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  PLANETARY  UNIT 

TOPA-TOS* < 1 .  > ( RR*RPS ) / < RS*RPR ) ) 

SOP A-SOS/ < 1 .  +  <  RR*RPS ) / <  RS*RPR ) ) 

READ  IN  VALUES  OF  PLANETARY  UNIT 

CALL  PLANINIBCB.  BA.  BV,  BEB.  BPB.  BN.  BNCOMP,  BPDS,  BPDR.  BNS.  BPHIS. 
1BPHIS1. BPHIR.  BPHIR1. BWDSM.  BES.  BPS.  BB ISM.  BISTEP.  BNPS. 

2BNPR.  BNR. BWDRM, BER. BPR. BB1RM, BRPR. BRPS. BRR. BRS ) 

BP1<1)-BPB 
BP1(2)-BPS 
BP1 (3)»BPR 
BP1(4)»BPS 
BP1(S)-BPR 

CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  PLANETARY  UNIT 

TOF»TOPA*  (  1 .  «■  <  BRR*BRPS  >  /  <  BRS*BRPR )  ) 

SOF*SOP A/ ( 1 .  +  < BRR*BRPS > / <  BRS*BRPR ) ) 

MGP A-  ( 1 .  ■*■  ( BRR*BRPS )  /  <  BRS*BRPR  >  > 

MGS- < 1 .  ♦< RR*RPS ) / ( RS*RPR ) ) *MGP A 
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non  n  n  n  n 


3 

6 


77 


MGPB-1.  0 

INC0MP-6+ISTEP+BISTEP 
DO  3  IN-1,  6 
ZNCOMP  < IN)«1. 0 
DO  6  IN-1, ISTEP 
ZNCOMP ( IN+6 ) — NCOMP < IN  > 

I X— 6+ISTEP 

DO  77  IN-1,  BISTEP 

ZNCOMP <IN+IX)»BNCOMP< IN) 


CALCULATE  LIFE  AND  DYNAMIC  CAPACITY  OF  SPIRAL  BEVEL  UNIT  COMPONENTS 
CALCULATE  LIFE  OF  SPIRAL  BEVEL  UNIT 


CALL  SPBVCAt 

1TI,  TOF,  SI,  SOF,  MG,  MGS,  NP,  NG, 

2 AO,  GAMMA  1,  ROT,  SPR,  PHE1,  PHSU,  ZZ1, 

3PTL,  AP,  BP,  RP,  GTL,  AG,  BG,  RG, 

4ITYPEP1,  RFP1,  NBP 1 ,  DPI,  ACPI,  BDCAP1,  AK1 ,  El  (2),  ADJP1, 
5ITYPEP2,  RFP2.  NBP2,  DP2,  ACP2,  BDCAP2,  AK2,  El  (3),  ADJP2, 
6ITYPEG1,  RFG1,  NBG1 ,  DG1  •  ACG1,  BDCAG1,  AK3,  El  (5),  ADJG1, 
7ITYPEG2,  RFG2,  NBG2,  DG2,  ACG2,  BDCAG2,  AK4,  El  (6),  ADJG2, 
8F,  E,  PG,  El  ( 1 ) ,  RPD,  RGD, 

9PXP, PYP, PZP, TOTFOR,  PXG,  PYG, PZG,  TOTFOR, 

1R1XP. R1YP, R1ZP,  R2XP, R2YP,  R2ZP, 

2R1XG,  R1YG,  R1ZG,  R2XG,  R2YG,  R2ZG, 

3L1(2),  HI  (2),  TOFORP1,  PI  (2).  BDCAPIO.  Dl(2>, 

4L1  (3),  HI  (3),  T0F0RP2,  PI  (3),  BDCAP20,  D1  (3), 

5L1  (3),  HI  (3),  TOFORGl,  PI  (3),  BDCAGIO,  D1  (5), 

6L1  (6),  HI  (6),  T0F0RG2,  PI  (6),  BDCAG20.  D1  C6>, 

7L1(1),  Hl(l),  DCAPi  Dl(l), 

8L1  (4),  HI  (4),  DCAG,  D1  (4), 

9LSB, HSB,  ESB ) 


PRINT  OUT  RESULTS  FOR  SPIRAL  BEVEL  UNIT 


CALL  SPBVOT (PD.  PHE,  PHSI,  SPR,  F,  AO,  SI,  SOS,  ROT,  TI,  TOS,  THETA, 
1NP, GAMMA, DP,  RPD,  AOP,  BOP,  PITCH, 

2 PXP. PYP, PZP, TOTFOR,  DCAP,  CASEP,  AP,  BP, 

3R1XP, R1YP, R1ZP, TOFORP1,  BDCAPIO, 

4R2XP, R2YP, R2ZP, T0F0RP2,  BDCAP20, 

3NG,  ZZ,  DG,  RGD,  AOG,  BOG, 

6PXG,  PYG,  PZG,  TOTFOR,  DCAG,  CASEG,  AG,  BG, 

7R1XG, R1YG, R1ZG, TOFORGl,  BDCAGIO, 

8R2XG, R2YG, R2ZG, T0F0RG2, BDCAG20, 

9D1 ,  PI,  LI,  HI,  El  ) 


104 


uuuo  u o cj  uocju  o  o  u  uoo 


Mur'urwiwui'mM'wmiwigUffflTWWWgiJA'n.’I’l] 


CALCULATE  LIFE  AND  DYNAMIC  CAPACITY  OF  PLANETARY  UNIT  COMPONENTS 
CALCULATE  LIFE  OF  PLANETARY  UNIT 

CALL  PLANCA( I STEP/ NCOMP, MQPA,  NS,  NPS,  NPR,  NR,  PHIS1,  PHIR1, 

IRS,  RPS,  RPR,  RR,  CB,  A.  V,  PI:.  N,  EB,  FTT , 

2B1SM,  PS,  ES,  WDSM,  B1RM,  PR.  ER,  WDRM, 

3T0S.  TOF,  SOS.  SOF,  CS,  LS,  FS.  CR,  LR,  FR,  ADI.  AL1,  AH1 ,  AE1. 

4LPLAN, HPLAN, EPLAN  > 

PRINT  OUT  RESULTS  FOR  THE  PLANETARY  UNIT 

CALL  PLANOT  <  I  STEP ,  N,  V,  CB,  FB,  NS,  PDS,  PHIS,  WDSM.  B1SM,  FS, 

1NR.  PDR.  PHIR,  WDRM,  B1RM,  FR,  NP,  NPS,  NPR, TOS, TOF, SOS, SOF, FTT. 

2AD1 ,  API,  AL1, AH1 , AE1 > 

CALCULATE  LIFE  AND  DYNAMIC  CAPACITY  OF  PLANETARY  UNIT  COMPONENTS 
CALCULATE  LIFE  OF  PLANETARY  UNIT 

CALL  PLANCA( BISTEP, BNCOMP, MGPB,  BNS,  BNPS,  BNPR, BNR, 

1BPHIS1 , BPHIR1. BRS. BRPS, BRPR, BRR, BCB, BA, BV. BPB, BN, BEB, 

2BFTT .  BB1SM.  BPS,  BES,  BWDSM,  BB1RM,  BPR,  BER,  BWDRM. 

3T0PA,  TOF.  SOPA,  SOF,  BCS,  BLS,  BFS,  BCR,  BLR,  BFR,  BD1,  BL1,  BH1,  BE1, 
4BLPLAN, BHPLAN,  BEPLAN) 

PRINT  OUT  RESULTS  FOR  THE  PLANETARY  UNIT 

CALL  PLANOT < BISTEP, BN, BV,  BCB, BFB, BNS, BPDS.  BPHIS,  BWDSM, 

1BB1SM, BFS, BNR,  BPDR, BPHIR, BWDRM, BB1RM, BFR, BNP, BNPS, BNPR, 

2T0PA,  TOF,  SOPA,  SOF,  BFTT ,  BD1,  BPl,  BL1,  BH1 ,  BE1  ) 

DEFINE  TRANSMISSION  LIFE  ARRAYS 


DQ  8  IE-1, 6 

ZEKIE)-El(IE) 

8  ZL1(IE)-L1(IE) 

DO  9  IE-1, ISTEP 

ZE1 ( IE+& ) -AE1 ( IE ) 

9  ZL1 ( IE+6 ) =AL1 ( IE ) 

DO  99  IE-1,  BISTEP 

ZE1 < IE+6+ISTEP  >-BEl ( IE) 

99  ZL1 ( IE+6+ISTEP ) -BL1 < IE ) 

CALL  LIFE ( ZL1 ,  INCOMP,  ZE1,  ZNCOMP, LTRANS,  ETRANS) 
HTRANS-LTRANS* 16666.  667/SOF 
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C 


rv  / 


START  COUNTER  FOR  LOADS  BETWEEEN  15  AND  150  PERCENT  OF  DYNAMIC 

CAPACITY 

DMIN-D1U) 

DO  21  1-2.  6 

IF(D1(I).  LT.  DMIN ) DMIN— D1 (I ) 

DELTATO— .  15* DM IN 

DELTATI-DELTATO/MOS/MO 

DTO— 0.  0 

DTI— 0.  0 

DO  22  1-1. 10 

DT I -DT I +DELT AT I 
DTO-DTO+DELTATO 
DYN( I )*DTO 
CALL  SPBVCAI 

IDT  I.  DTO,  SI.  SOF,  MG.  MGS,  NP,  NG, 

2 AO.  GAMMA1.  ROT. SPR. PHE1. PHSI1. ZZ1. 

3PTL,  AP,  BP,  RP,  GTL.  AG,  BG,  RG, 

4ITYPEP1,  RFP1,  NBP1,  DPI.  ACPI,  BDCAP1,  AK1 ,  El  (2),  ADJP1, 

5ITYPEP2,  RFP2,  NBP2,  DP2,  ACP2.  BDCAP2,  AK2,  El  (3),  ADJP2, 

6ITYPEG1, RFG1, NBG1. DG1, ACG1. BDCA01.  AK3,  El (5),  AD JG 1 . 

7ITYPEG2,  RFG2,  NBG2,  DG2.  ACG2.  BDCAG2,  AK4,  El  (6),  ADJG1, 

8F,  E.  PG,  El  <  1 ) ,  RPD.  RGD, 

9PXP,  PYP,  PZP.  TOTFOR,  PXG.  PYG.  PZO,  TOTFOR. 

1R1XP. R1YP, R1ZP. R2XP, R2YP, R2ZP, 

2R1XG,  R1YG,  R1ZG.  R2XG,  R2YG,  R2ZG, 

3L1(2).  HI  (2),  T0F0RP1,  PI  <2>,  BDCAP10.  Dl(2), 

4L1<3). HI (3). T0F0RP2,  PI (3) , BDCAP20, Di (3) , 

5L1 (5),  HI (5),  T0F0RG1, PI (5), BDCAG10,  Dl ( 5) , 

6L1(6),  HI ( 6 ) . T0F0RG2, Pl<6), BDCAG20,  Dl<6>, 

7L1 ( 1 ) . HI ( 1 ) , DCAP,  Dl(l). 

8L1  (4),  HI  (4),  DCAG,  Dl  (4), 

9LICI). DUMB.  DUMB) 

CONTINUE 

CALL  CAP(DYN,  LI,  10,  DSB,  PSP) 


START  COUNTER  FOR  LOADS  BETWEEEN  15  AND  150  PERCENT  OF  DYNAMIC 
CAPACITY 


ADMIN— ADI ( 1 ) 

DO  23  1=2, I STEP 

IF (ADI ( I ) .  LT.  ADMIN)ADMIN-ADl(I) 
DELTATO-  15*ADMIN 
DELTATOS-DELTATO/MGS 


DTO-O.  0 
DTOS-O.  0 

Da  24  1  =  1, 10 

DT0S-DT0S+DELTAT0S 
DTO=DTO+DELTATO 
DYN< I ) =DTO 

CALL  PLANCA<ISTEP,  NCOMP,  MGPA,  NS, NPS, NPR, NR,  PHIS1, PHIR1, 

IRS,  RPS,  RPR,  RR,  CB,  A,  V,  PB,  N,  EB,  FTT, 

2B1SM,  PS,  ES,  WDSM,  B1RM,  PR,  ER,  WDRM, 

3DT0S,  DTO,  SOS.  SOP,  CS,  LS,  FS,  CR,  LR,  FR,  ADI,  AL1 ,  AH1 ,  AE1.  ALKI ).  DUMB. 
4 DUMB ) 

24  CONTINUE 

CALL  CAP ( DYN, ALI,  10, DPLAN,  PPLAN) 

C 

C 

C 

C  START  COUNTER  FOR  LOADS  BETWEEEN  15  AND  130  PERCENT  OF  DYNAMIC 

C  CAPACITY 

C 

BDMIN-BDl(l) 

DO  30  1-2, B I STEP 

30  IF<BD1(I).  LT.  BDMIN)8DMIN-BD1 ( I ) 

DELTATO*.  1 5*BDMIN 
DELTATOS=DELTATO/MGPA 
DT0»0.  0 
DT0S=0.  0 

DO  31  1  =  1,  10 

DTQS*DTQS+DELT  ATOS 
DTO=DTO+DELTATO 
DYN< I ) =DTO 

CALL  PLANCA< BISTEP, BNCOMP, MGPB, BNS,  BNPS, BNPR, BNR, BPHIS1, 

1BPHIR1,  BRS.  BRPS,  BRPR,  BRR,  BCB,  BA,  BY,  BPB,  BN,  B EB,  BFTT, 

2BB1SM, BPS, BES, BWDSM, BB1RM, BPR, BER, BWDRM, 

3DT0S,  DTO,  SOPA,  SOF,  BCS,  BLS,  BFS,  BCR,  BLR,  BFR, 

4BD1.  BL1,  BH1 ,  BE1 ,  BLI (I), DUMB, DUMB) 

31  CONTINUE 

CALL  CAP(DYN,  BLI,  10, BDPLAN, BPPLAN) 

C 

C  START  COUNTER  FOR  LOADS  BETWEEEN  15  AND  150  PERCENT  OF  DYNAMIC 

C  CAPACITY 

C 

IF (ADMIN.  LT. DMIN ) DMIN-ADMIN 
IF(BDMIN. LT. DMIN ) DMIN=BDMIN 
DELTATO".  13*DMIN 
DELTATOP=DELTATO/MGPA 


DELTATOS-DELTATO /MOS 

DELTAT I -DELTATOS/MO 

DTI-O.  0 

DTOS-O.  0 

DTOPA-O.  0 

DT0*0.  0 

DO  20  1*1,  10 

DTI-DTI+DELTATI 
DTOS-DTOS+DELTATQS 
DTOP A— DTOP A+DELT ATOP 
DTO-DTO+DELTATO 
DYN< I )*DTO 


CALL  SPBVCA< 

IDT  I,  DTO,  SI,  SOF.  MO,  MOS,  NP,  NO. 

2 AO,  GAMMA  1 ,  ROT.  SPR,  PHE1,  PHSI1.  ZZ1. 

3PTL.  AP,  BP.  RP,  GTL,  AO,  BO,  RO, 

4ITYPEP1,  RFP1,  NBP1,  DPI,  ACPI,  BDCAP1.  AK1,  El(2>.  ADJP1, 
5ITYPEP2,  RFP2,  NBP2.  DP2,  ACP2,  BDCAP2.  AK2,  El  (3),  ADJP2. 
6ITYPEC1,  RF01,  NBC1,  D01,  AC01,  BDCA01,  AK3,  El  (9).  ADJ01, 
7ITYPE02,  RFG2,  NBG2,  D02.  AC02,  BDCA02,  AK4,  El  (6).  ADJC2. 

8F.  E,  PO.  El  ( 1 ) .  RPD,  ROD, 

9PXP, PYP, PZP, TOTFOR. PXO, PYO, PZO,  TOTFOR, 

1R1XP, R1YP, R1ZP.  R2XP,  R2YP,  R2ZP, 

2R1X0.  R1Y0,  R1Z0,  R2X0,  R2Y0,  R2Z0, 

3L1  (2) ,  HI  (2) ,  TQF0RP1.  PI  (2) ,  BDCAPIO,  Dl(2>, 

4L1  <3) ,  HI  (3) ,  T0F0RP2,  PI  (3),  BDCAP20,  Dl<3>, 

5L1(5), HI (9), T0F0R01, PI (9), BDCAG10,  Dl(9). 

6LK6),  Hl(6),  T0F0R02,  PI  (6).  BDCAG20,  Dl(6), 

7L1  ( l ) .  HI  ( 1 ) ,  DCAP,  Dl(l), 

8L1(4),  H 1  ( 4 ) ,  DC  AO,  D1  (4) , 

9LI ( I ) ,  DUMB.  DUMB ) 

CALL  PLANCA( ISTEP,  NCOMP,  MOPA.  NS,  NPS, NPR,  NR,  PHIS1,  PHIR1, 
IRS.  RPS,  RPR,  RR,  CB,  A,  V,  PB,  N,  EB,  FTT, 

2B1SM,  PS,  ES,  WDSM,  B1RM,  PR,  ER,  WDRM, 

3DT0S,  DTO,  SOS,  SOF,  CS,  LS,  FS,  CR,  LR,  FR,  ADI,  AL1,  AH1,  AE1,  ALI(I), 
4 DUMB,  DUMB) 

CALL  PLANCA< BISTEP, BNCOMP, MOPB,  BNS, BNPS,  BNPR,  BNR,  BPHIS1. 
1BPHIR1,  BRS,  BRPS,  BRPR,  BRR,  BCB,  BA,  BV.  BPB,  BN,  BEB,  BFTT, 

2BB1SM, BPS, BES, BWDSM, BB1RM, BPR.  BER.  BUDRM. 

3DT0PA,  DTO,  SOPA,  SOF,  BCS,  BLS.  BFS,  BCR,  BLR,  BFR,  BD1.  BL1, 

48H1 ,  BE1. BLI(I). DUMB, DUMB) 

DO  12  IE-1,  6 


M 


1 


1220 

1221 

1222 


ZL1 ( IE) “LI (IE) 

00  13  IE-1,  I STEP 

ZL1 ( IE+6)— AL1 (IE) 

00  14  IE-1,  BISTEP 

ZL1 < I E+6+ I STEP ) — BL 1 ( IE ) 

CALL  LIFECZL1,  INCOMP,  ZE1,  ZNCOMP,  ZLI(I),  DUMB) 

CONTINUE 

CALL  CAP (DYN, ZLI,  10,  DTRANS,  P TRANS) 

FORMAT < '  TOTAL  TRANSMISSION'/) 

FORMAT < '  SPIRAL  BEVEL  UNIT'/) 

FORMAT ('  PLANETARY  UNIT'/) 

URITEd,  1221) 

CALL  DPLHE(DSB, PSP.  LSB,  HSB,  ESB) 

URITEd,  1222) 

CALL  DPLHE ( DPLAN, PPLAN, LPLAN.  HPLAN,  EPLAN ) 

URITEd,  1222) 

CALL  DPLHE (BDPLAN. BPPLAN,  B LPLAN, B HPLAN,  BEPLAN) 

URITEd,  1220) 

CALL  DPLHE (DTRANS, P TRANS,  LTRANS, HTRANS.  ETRANS) 

STOP 

END 

SUBROUTINE  DPBV 

INTEOER  CASEP. CASEO,  PTL,  OTL 

REAL  NP.  NO.  NBP1,  NBP2,  NB01,  NB02,  MO,  MG  1,  LSB 

REAL  L1(9).D1(9).E1(9),H1(9),P1(9).  DYN(  10).  LI  (10) 

FORMAT ( 'UH AT  IS  THE  INPUT  TORQUE  OF  THE  RIOHT  PINION') 

FORMAT! 'UHAT  IS  THE  INPUT  TORQUE  OF  THE  LEFT  PINION') 

FORMAT ( 'UHAT  IS  THE  INPUT  SPEED  OF  THE  TRANSMISSION') 

URITEd,  101) 

READ! 1,  * ) TIR 
URITEd,  102) 

READd,  * ) TIL 
URITEd,  102) 

READd,  *)SI 

INPUT  SPIRAL  BEVEL  GEAR  GEOMETRY 

CALL  DPBVIN(NP,  NG,  AO,  PHE,  F,  PHSI,  ROT,  SPR,  THETA,  E,  Eld  >,  PO, 

1PHE1,  PHSI  1,  THETA1.  CASEP,  PTL,  AP,  BP,  ITYPEP1,  NBP1,  DPI,  ACPI,  AK1, 
2BDCAP1,  RFP1,  El  (2),  ITYPEP2,  NBP2,  DP2.  ACP2,  AK2,  BDCAP2,  RFP2,  El  (3), 
3CASE0,  GTL.  AG,  BG,  ITYPEG1 ,  NBG1 ,  D01.  AC01.  AK3,  BDCA01,  RF01,  El  (9), 
4ITYPEC2,  NBG2,  DG2.  ACG2,  AK4,  BDCAG2,  RF02,  El  (6),  MG,  GAMMA1 ,  GAMMA.  ZZ, 
9ZZ1.  DP,  DO,  RPD,  RP,  ROD,  RG,  HK,  AOO,  AOP,  HT,  BOG,  BOP,  PD, 

6ADJP1. ADJP2, ADJG1 ,  ADJG2,  ZIP) 


V V*  *  *  \*  K*  Kfh t  ** 


•V 


s-*' 


q  ooooooo 


Ei<4)»ei<i) 

El<7)«Eld) 

E 1  <  8 )  *E  1  ( 2 ) 

Ei<9)-El<3> 

PI (1 >*PG 
P1<4)*PG 
P1<7)=PG 

CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  TRANSMISSION 

TOF»TIR#MG-*,TIL*MG 
SOF-SI/MG 
MG1»1.  0 

CALCULATE  LIVES  AND  DYNAMIC  CAPACITIES  OF  SPIRAL  BEVEL 
COMPONENTS  AND  LIFE  OF  THE  TRANSMISSION 


CALL  DPBVCA( 

1TIR.  TIL/  TOF,  SI,  SOF,  MQ,  MQ1,  NP,  NO. 

2 AO.  GAMMA  1.  ROT,  S PR.  PHE1.  PHSI1.  ZZ1.  ZIP, 

3PTL.  AP.  BP,  RP,  GTL,  AG,  BG,  RG, 

4ITYPEP1,  RFP1,  NBP1.  DPI,  ACPI.  BDCAP1,  AK 1 ,  El  (2).  ADJP1. 
3ITYPEP2,  RFP2.  NBP2,  DP 2,  ACP2,  BDCAP2.  AK2.  El  (3) ,  ADJP2, 
6ITYPEG1 ,  RFG1 ,  NBG1,  DG1,  ACG1,  BDCAG1,  AK3,  El  (5),  ADJG1, 
7ITYPE02.  RFG2.  NBG2.  DG2,  ACG2,  BDCAG2,  AK4,  El  (6),  ADJG2, 

8F,  E.  PC,  El  ( 1 ) ,  RPD,  ROD, 

9PXPR, PYPR. PZPR. TOTFORR. PXGR,  PYGR,  PZGR,  TOTFORGE. 

9PXPL,  PYPL,  PZPL,  TOTFORL,  PXGL.  PYGL,  PZGL,  TOTFORGE, 
1R1XPR, RlYPR, R1ZPR, R2XPR, R2YPR, R2ZPR, 

1R1XPL,  R1YPL,  R1ZPL,  R2XPL,  R2YPL,  R2ZPL, 

2R1XG.  R1YG,  R1ZG.  R2XG,  R2YG,  R2Z0, 

3L1(2),  HI (2),  TOFORP1R, PI <2>, BDCAPIOR.  Dl(2>, 

4L1 <3),  HI (3),  T0F0RP2R,  PI (3),  BDCAP20R,  D1 <3>, 

3L  1(9).  Hl(9>,  TOFORG1,  PI  (3),  BDCAGIO,  D1C3), 

6L1(6).  HI (6),  T0F0RG2,  P 1 < 6 > , BDCAG20. D1 (6) . 

7L1 ( 1 ) , Hi ( 1 ) ,  DCAPR, Dl(l), 

8L1 < 4 ) , HI < 4 > ,  DC AG,  Dl<4>, 

*L1(7), HI (7), DCAPL,  Dl<7>, 

*L1(8), Hl<8), TOFORP1L, Pi (8), BDCAPIOL, D1 (8), 

*L1  <9>,  HI  (9),  T0F0RP2L,  PI  (9),  BDCAPIOL,  Dl(9>, 

9LSB, HSB,  ESB ) 

PRINT  OUT  LIVES  AND  DYNAMIC  CAPACITIES  OF  COMPONENTS 


110 


t-HS 


c 

c 

c 


10 


c 

c 

c 

c 


c 

c 

c 


CALL  DPBVOT ( PD»  PHE,  PHSI,  SPR,  F.  AO,  SI,  SOF,  ROT,  TIR,  TIL,  TOF, 
1 THETA, NP, GAMMA,  DP, RPD, AOP, BOP. 

2PXPR, PYPR, PZPR, TOTFORR, DC APR,  CASEP,  AP.  BP, 

3R1XPR, R1YPR, R1ZPR,  TQF0RP1R,  BDCAP10R, 

4R2XPR, R2YPR, R2ZPR,  T0F0RP2R,  BDCAP20R, 

2PXPL,  PYPL,  PZPL,  TOTFORL,  DCAPL,  CASEP,  AP,  BP, 

3R1XPL,  R1YPL,  R1ZPL,  T0F0RP1L,  BDCAP10L, 

4R2XPL, R2YPL,  R2ZPL,  T0F0RP2L,  BDCAP20L, 

SNG.  ZZ,  DG.  ROD,  AOG,  BOG, 

6PXGR, PYGR, PZGR, TOTFORGE, DC AG, CASEG, AG, BG, 

6PXGL. PYOL, PZOL, TOTFORGE, DC AG, CASEG, AG. BG, 

7R1XG, R1YG, R1ZG,  T0F0RG1 ,  BDCAG10, 

8R2X0, R2YG, R2ZG, T0F0RG2, BDCAG20, 

9D1,  PI,  LI,  HI,  El ) 


ESTIMATE  10  PERCENT  DYNAMIC  CAPACITY  OF  TRANSMISSION 


DM I N=D 1(1) 

DO  10  1-2.  9 

XF(D1(Z>.  LT.  DMIN)DMIN=D1 < I > 
DELTATO*.  1*DMIN 
DELTATI=0.  5*DELTAT0/MC 
DTIR*0.  0 
DTIL=0.  0 
DT0*0.  0 


START  COUNTER  FOR  DYNAMIC  CAPACITIES  BETWEEN  10  AND  100  PERCENT 
OF  TRANSMISSION  DYNAMIC  CAPACITY 


DO  20  1*1,  10 

DTIR-DTIR+DELTATI 
DT I  L=»DT  I L+DELT  AT  I 
DTO*DTO+DELTATO 
DYN ( I ) =DTO 


CALCULATE  LIFE  FOR  EACH  DYNAMIC  CAPACITY 


CALL  DPBVCA( 

1DTIR,  DTIL,  DTO,  SI,  SOF,  MG,  MG1,  NP,  NG, 

2 AO,  GAMMA1,  ROT,  SPR,  PHE1.  PHSI1,  ZZ1,  ZIP, 

3PTL,  AP,  BP,  RP,  GTL,  AG,  BG,  RG, 

4ITYPEP1,  RFP1,  NBP1.  DPI,  ACPI,  BDCAP1,  AK1,  El  (2),  ADJP1, 
5ITYPEP2,  RFP2,  NBP2,  DP2,  ACP2,  BDCAP2,  AK2,  El  (3),  ADUP2, 
6ITYPEG1 .  RFG1 ,  NBGl ,  DG1,  ACG1, BDCAG1 , AK3, El (5) , ADJG1, 


111 


u  n  rj  n  n 


7ITYPEG2,  RFG2i  NBG2.  DG2,  ACG2.  BDCAG2-  AK4.  El  (6),  ADJG2. 

8F1  E.  PO.  El  ( 1  ) ,  RPDi  RGD. 

9PXPR, PYPR, PZPR. TOTFORR,  PXGR,  PYGR,  PZGR,  TOTFORQE, 

9PXPL.  PYPL»  PZPLi  TOTFORL,  PXGL.  PYGL.  PZGL,  TOTFORQE, 

1R1XPR, R1YPR, R1ZPR, R2XPR, R2YPR.  R2ZPR, 

1R1XPL/ R1YPL, R1ZPL, R2XPL. R2YPL, R2ZPL, 

2R1XG. R1YG. RiZG, R2XG.  R2YG.  R2ZG. 

3L1(2),  HI  (2), TOFORP1R, PI (2) <  BDCAP1QR,  Dl(2), 

4L1(3),  Hl(3>,  T0FQRP2R.  PI (3) , BDCAP20R,  DIO). 

3L1(5),  HI  (9),  TOFORG1,  PI (5), BDCAGIO, DIO), 

6L1 (6), HI (6), T0F0RG2,  PI (6),  BDCAG20.  Dl(6>. 

7L 1 ( 1 ) . H 1 ( 1 ) , DC APR > Dl(l). 

8L1  (4>.  HI  (4),  DCAG,  Dl<4), 

*L1<7),  HI  (7),  DCAPL.  Dl(7>, 

*L1  (8).  HI (8),  TQFORP1L.  P 1 (8) ,  BDCAPIOL.  Dl(8). 

*L1 (9), HI (9). T0F0RP2L. PI (9), BDCAPIOL.  D1 (9) . 

9LI ( I ) . HSB1. ESB1 > 

20  CONTINUE 

CALCULATE  DYNAMIC  CAPACITY  AND  LOAD  LIFE  EXPONENT  FOR 
TRANSMISSION 

CALL  CAP(DYN.  LI.  10.  DSB.  PSP) 

PRINT  OUT  LIFE  AND  DYNAMIC  CAPACITY  OF  TRANSMISSION 

C 

WRITE ( 1. 1220) 

1220  FORMAT ('  TOTAL  TRANSMISSION'/) 

CALL  DPLHE ( DSB, PSP. LSB.  HSB. ESB ) 

STOP 

END 

SUBROUTINE  SBDBPL 

INTEGER  CASEP, CASEG, PTL, GTL 

INTEGER  CCASEP, CCASEG, CPTL, CGTL 

REAL  NP, NG, NBP1 , NBP2,  NBG1 .  NBG2,  MG,  LSB 

REAL  Ll<9>, D1 (9), El (9). HI (9 > , P 1 (9) »  DYN( 10),  LI ( 10) 

REAL  CNP, CNG, CNBP1.  CNBP2,  CNBG1 ,  CNBG2,  CMG,  CLSB 

REAL  CL1  (6),  CD1  (6),  CE1  (6),  CHI  (6).  CPI  (6),  CDYN(  10),  CLK10) 

REAL  DL1 (6),  DH1 (6),  DD1 (6) 

REAL  NS,  NPS,  NPR.  NR,  N,  LS,  LR,  LPLAN 

REAL  NCOMP  <  5 ) ,  ADI (9) .  API (9),  AL1 (9).  AH 1(5), AE 1(5), AL 1(10) 
REAL  MGS. MGP,  ZNC0MP(26). ZE1 <26), ZL1 (26), LTRANS,  ZLI( 10) 

101  FORMAT ( 'WHAT  IS  THE  INPUT  TORQUE  OF  THE  RIGHT  PINION') 

102  FORMAT ( 'WHAT  IS  THE  INPUT  TORQUE  OF  THE  LEFT  PINION') 

103  FORMAT ( 'WHAT  IS  THE  INPUT  SPEED  OF  THE  TRANSMISSION') 


3 


WRITEd, 101) 

REA0( 1, *>CTIR 
WRITEd, 102) 

READ ( 1 , *)CTIL 
WRITEd, 103) 

READd,  *)CSI 

READ  IN  VALUES  OF  THE  SPIRAL  BEVEL  UNIT 


CALL  SPBVIN<CNP« CNO, CAO. CPHE, CF. CPHSI,  CROT,  CSPR.  C THETA. 
ICE.  CEl(l), CPO,  CPHE1.  CPHSI 1.  CTHETA1, CCASEP.  CPTL.  CCAP,  CBP. 
2CITYPEP1.  CNBP1.  CDP1.  CACP1.  CAK1.  CBDCAP1.  CRFP1,  CE1  (2). 
3CITYPEP2.  CNBP2.  CDP2.  CACP2.  CAK2.  CBDCAP2.  CRFP2.  CE1  (3). 
4CCASE0.  COTL.  CAO.  CBO.  CITYPE01.  CNB01.  CD01.  CAC01.  CAK3. 
SCBDCA01,  CRF01,  CE1  (3).  CITYPE02,  CNB02.  CDG2.  CAC02.  CAK4. 
6CBDCAC2,  CRF02.  CE1  (6).  CMC.  C0AMMA1,  C GAMMA.  CZZ.  CZZ1.  CDP. 
7CDG.  CRPD.  CRP.  CROD,  CRO,  CHK,  CAOO.  CAOP,  CHT.  CBOG,  CBOP,  CP  ITCH, 
8CADJP1, CADJP2.  CADJG1,  CADJG2) 


CE1(4)»CE1(1) 

CPld)-CPG 

CP1<4)-CPG 

CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  SPIRAL  BEVEL  UNIT 

TIR»CTIR*CMO 
T I L*C  T I L*CMG 
SI»CSI/CMC 

INPUT  SPIRAL  BEVEL  GEAR  GEOMETRY 

CALL  DPBVININP,  NO,  AO,  PHE,  F,  PHSI,  ROT,  SPR,  THETA,  E,  El  (1  >,  PG, 

1PHE1.  PHSI 1 ,  THETA 1,  CASEP, PTL, AP, BP,  ITYPEP1, NBP1, DPI, ACPI. AK1, 
2BDCAP1,  RFP1,  El  (2).  ITYPEP2,  NBP2,  DP2,  ACP2,  AK2,  BDCAP2,  RFP2,  El  (3). 
3CASE0,  GTL,  AG,  BG,  ITYPEG1,  NBG1,  D01,  ACG1,  AK3,  BDCAG1,  RFG1,  El  (3), 
4ITYPEG2,  NBG2,  DG2,  AC02,  AK4,  BDCA02,  RFG2,  El  (6),  MG,  GAMMA  1 ,  GAMMA,  ZZ, 
9ZZ1,  DP,  DO.  RPD,  RP,  RGD,  RG,  HK,  AOO,  AOP,  HT,  BOG,  BOP,  PD, 

6ADJP1,  ADJP2,  ADJG1 ,  ADJG2,  ZIP) 

E1(4)»E1(1) 

E1(7)»E1(1) 

E 1 ( 8 ) *E 1 ( 2 ) 

E1(9)-E1(3) 

PI d )*PG 


mm'wm 


i 


CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  TRANSMISSION 

TOS-T I R  *MG+T I L*MG 
SOS-SI/MG 

READ  IN  VALUES  OF  PLANETARY  UNIT 

CALL  PLANIN(CB,  A.  V.  EB,  PB,  N,  NCOMP,  PDS,  PDR*  NS,  PHIS.  PHIS1, 

1PHIR,  PHIR1,  WDSM,  ES,  PS,  B1SM,  ISTEP,  NPS,  NPR,  NR,  UDRM,  ER,  PR.  B1RM, 

2RPR,  RPS,  RR,  RS) 

AP 1(1) — PB 
AP1<2>»PS 
API (3)— PR 
API <4)-PS 
AP  1  <  3  > -PR 

CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  PLANETARY  UNIT 

TOF-TOS* ( 1 .  +  < RR*RPS ) / ( RS*RPR  > ) 

SOF-SOS/ <  1 .  -*■  < RR*RPS ) / ( RS*RPR ) ) 

MGS- < 1 .  +  <  RR*RPS ) / ( RS*RPR ) ) 

C  MGS— MGS*NG /NP 
MGP-1.  0 

INC0MP-21+ISTEP 

DO  9  IN-1, 21 

ZNCOMP ( IN ) -1 .  0 

DO  6  IN-1, ISTEP 

ZNCOMP ( IN+21 ) -NCOMP ( IN) 

CALCULATE  LIFE  AND  DYNAMIC  CAPACITY  OF  SPIRAL  BEVEL  UNIT  COMPONENTS 
CALCULATE  LIFE  OF  SPIRAL  BEVEL  UNIT 

CALL  SPBVCA( 

1CTIR,  TOF,  CSI,  SOF,  CMG,  CMGS,  CNP,  CNG, 

2CA0.  CGAMMA1,  CROT,  CSPR,  CPHE1,  CPHSU,  CZZ1, 

3CPTL.  CCAP,  CBP,  CRP,  CGTL,  CAG,  CBG,  CRO, 

4CITYPEP1,  CRFP1,  CNBP 1 ,  CDP 1 ,  CACP 1 , CBDCAP 1 , CAK1 , CE1 < 2 ) , CADJP 1 , 
9CITYPEP2,  CRFP2,  CNBP2,  CDP2,  CACP2,  CBDCAP2,  CAK2,  CE1  (3) ,  CADJP2, 
6CITYPEG1,  CRFG1.  CNBG1,  CDG1,  CACG1, CBDCAG1 , CAK3, CEl ( 5 > , CADJG1 , 
7CITYPEG2,  CRFG2,  CNBG2,  CDG2,  CACG2,  CBDCAG2,  CAK4,  CEl  (6),  CADJG1 
SCF,  CE,  CPO,  CEl  (  1  ) ,  CRPD,  CRGD, 

9CPXP. CPYP. CPZP, CTOTFOR, CPXG,  CPYG, CPZG,  CTOTFOR, 


1CR1XP, CR1YP, CR1ZP, CR2XP/ CR2YP, CR2ZP, 

2CR1X0, CR1Y0, CR1ZO. CR2XG,  CR2Y0.  CR2Z0, 

3CL1(2).  CH1(2>.  CTOFORP1.  CPI (2). CBDCAPIO,  CD1 (2), 

4CL1 (3) , CHI <3) , CT0F0RP2,  CPI (3) , CBDCAP20> CD1 (3) , 

3CL1<3),  CHI  (3),  CTOFOROl.  CPI  (5),  CBDCAOIO,  CD1  (3). 

6CL1 (6). CHI (6), CT0F0RG2, CPI (6) » CBDCAG20, CD1 (6) , 

7CL1 ( 1 ) ,  CHI ( 1 ) ,  COCAP.  CD1 ( 1 ) . 

8CL1 (4).  CHI (4). COCAO. CD1 (4) . 

9CLSB. CHSB.  CESB) 

PRINT  OUT  RESULTS  FOR  SPIRAL  BEVEL  UNIT 

CALL  SPBVOT (CPD.  CPHE.  CPHSI,  CSPR,  CF.  CAO.  CSI.  CSOS,  CROT. 

1CTIR. TIR, CTHETA. CNP.  CGAMMA, COP.  CRPD,  CAOP,  CBOP.  CP  ITCH. 

2CPXP,  CPYP,  CPZP.  CTOTFOR.  COCAP. CCASEP,  CCAP, CBP. 

3CR1XP, CR1YP, CR1ZP.  CTOFORP1,  CBDCAPIO. 

4CR2XP. CR2YP. CR2ZP.  CT0F0RP2,  CB0CAP20. 

3CNO,  CZZ.  COG.  CRGO.  CAOG.  CBOG. 

6CPXG.  CPYG.  CPZG.  CTOTFOR.  CDCAG.  CCASEG,  CAG,  CBG. 

7CR1X0. CR1YO, CR1ZG.  CTOFORG1. CBDCAOIO. 

8CR2X0.  CR2YG.  CR2ZG.  CT0F0RG2.  CB0CAG20. 

9CD1.  CPI,  CL1,  CHI,  CE1) 

CALCULATE  LIFE  AND  DYNAMIC  CAPACITY  OF  SPIRAL  BEVEL  UNIT  COMPONENTS 
CALCULATE  LIFE  OF  SPIRAL  BEVEL  UNIT 

CALL  SPBVCA< 

1CTIL,  TOF,  CSI,  SOF,  CMQ,  CMOS,  CNP,  CNO, 

2CAO,  CGAMMA  1,  CROT.  CSPR,  CPHE1.  CPHSIi,  CZZ1, 

3CPTL.  CCAP.  CBP,  CRP,  CGTL,  CAG,  CBG,  CRG, 

4CITYPEP1,  CRFP1,  CNBP1,  CDP1,  CACP1,  CBDCAP1,  CAK1,  CE1  (2),  CADJP1, 
3CITYPEP2,  CRFP2,  CNBP2,  CDP2,  CACP2,  CBDCAP2,  CAK2,  CE1  (3),  CADJP2, 
6CITYPE01,  CRFOl,  CNBG1,  CDG1,  CACG1 , CBDCAG1 , CAK3, CE1 ( 3 ) , CADJG1 , 
7CITYPE02,  CRFG2,  CNBG2,  CDG2,  CACG2,  CBDCAG2,  CAK4,  CE1  (6),  CADJG2, 

8CF,  CE,  CPO,  CE1  ( 1 ) ,  CRPD,  CRGD, 

9DPXP.  DPYP.  DPZP,  DTOTFOR, DPXG. DPYO, DPZG, DTOTFOR, 

1DR1XP, DRIYP,  DR1ZP,  DR2XP,  DR2YP,  DR2ZP, 

2 OR  1X0,  DR1Y0,  0R1ZG,  0R2XG,  DR2YG,  DR2ZG, 

3DL1(2), DH1 (2), DT0F0RP1, CPI (2), DBDCAP10, DD1 <2>, 

4DL1(3). DH1(3). DT0F0RP2. CPI (3) , DBDCAP20, DD1(3), 

3DL1  (  3 ) ,  DH  1(3),  DT0F0RG1,  CP1(3),  DBOCAGIO,  DDKS), 

6DL1 (6), DH 1 ( 6 ) , DT0F0RG2, CPI (6), DBDCAG20, DD1 (6), 

7DL1 < 1 ) ,  DH1 ( 1 ) ,  DDCAP,  DD1 <1 ), 

8DL  1(4),  DH  1(4),  DDCAG,  DD  1(4), 

9DLSB, DHSB,  DESB ) 


non  o  n  n  r>  o  n  n 


PRINT  OUT  RESULTS  FOR  SPIRAL  BEVEL  UNIT 

CALL  SPBVOT <CPD,  CPHE,  CPHSI,  CSPR,  CF,  CAO,  CSI,  CSOS,  CROT, 

1CTIL,  CTOS, CTHETA,  CNP, CGAMMA, CDP, CRPD,  CAOP,  CBOP,  CP  ITCH, 

2DPXP,  DPYP,  DPZP, DTOTFOR, DDCAP, CCASEP, CCAP, CBP, 

3DR1XP, DR1YP, DR1ZP, DTOFORP1,  DBDCAPIO, 

4DR2XP, DR2YP, DR2ZP, DT0F0RP2, DBDCAP20, 

5CNG,  CZZ,  COG,  CRGD,  CAOG,  CBOG, 

60PXG,  DPYG,  DPZG,  DTOTFOR,  DDCAO,  CCASEG,  CAG,  CBG, 

7DR1XG,  DR1YG,  OR1ZG,  DTOFOROl,  DBDCAGIO, 

8DR2XG, DR-vq,  DR2ZG, DT0F0RG2, DBDCAG2Q. 

9DDI,  CPI ,  iA.1,  DH1,  CE1 ) 

CALCULATE  LIFE  AND  DYNAMIC  CAPACITY  OF  SPIRAL  BEVEL  UNIT  COMPONENTS 
CALCULATE  LIFE  OF  SPIRAL  BEVEL  UNIT 


CALL  DPBVCA( 

1TIR,  TIL,  TOF,  SI,  SOF,  MG,  MGS,  NP.  NG, 

2A0, GAMMA1 , ROT . SPR, PHEI , PHSI 1 ,  ZZ1,  ZIP, 

3PTL,  AP.  BP,  RP,  GTL,  AG,  BG,  RG, 

4ITYPEP1.  RFP 1 ,  NBP 1 ,  DPI,  ACPI,  BDCAP1.  AK1 ,  El<2>,  ADJP1. 
3ITYPEP2,  RFP2,  NBP2,  DP2.  ACP2,  BDCAP2,  AK2,  El  (3),  ADJP2, 
6ITYPEG1.  RFG1. NBG1, DGl.  ACG1 ,  BDCAG1 ,  AK3,  El  (  5  > ,  ADJG1 , 
7ITYPEG2,  RFG2,  NBG2,  DG2,  ACG2,  BDCAG2,  AK4,  El  (6),  ADJG2, 
8F.  E,  PC.  El  <  1 ) .  RPD,  RGD, 

9PXPR, PYPR, PZPR, TOTFORR, PXGR,  PYGR,  PZGR,  TOTFORGE, 
9PXPL. PYPL, PZPL, TOTFORL, PXGL, PYGL,  PZGL,  TOTFORGE, 
1R1XPR, R1YPR. R1ZPR, R2XPR,  R2YPR,  R2ZPR, 

1R1XPL, R1YPL. R1ZPL,  R2XPL, R2YPL,  R2ZPL, 

2R1X0,  R1YG,  R1ZG,  R2XG,  R2YG,  R2ZG, 

3L1 (2),  HI (2),  TOFORP1R,  PI (2). BDCAPIOR. Dl<2), 

HI (3), T0F0RP2R, PI (3), BDCAP20R,  Dl(3>, 

HI  (3),  TOFOROl,  PI  (5),  BDCAGIO,  D1  (5) , 

HI  (6),  T0F0RG2,  PI  (6),  BDCAG20,  D1  (6>, 

HI ( 1 ) , DCAPR, Dl( 1), 

BL1 (4), HI (4) , DC AG, D1 <4), 

•LI  (7).  HI  <7),  DCAPL,  D1  (7), 

*L1<8>,  HI (8),  TOFORP1L,  Pi (8), BDCAPIOL, D1 (8), 

*L1  (9),  HI  (9),  T0F0RP2L,  PI  (9),  BDCAPIOL,  D1  (9), 

9LSB. HSB,  ESB ) 


4L1(3> 
SL 1  (  3 )  i 
6L1<6> 
7L 1 < 1 )  i 


PRINT  OUT  LIVES  AND  DYNAMIC  CAPACITIES  OF  COMPONENTS 


116 


SI 

»! 


S 

k 


CALL  DPBVOT (PD,  PHE,  PHSI,  SPR»  F«  AO,  SI,  SOP,  ROT,  TIR,  TIL,  TOF, 

1 THETA,  NP, GAMMA,  DP,  RPD,  AOP,  BOP, 

2PXPR, PYPR, PZPR, TOTFORR, DC APR,  CASEP,  AP,  BP, 

3R1XPR, R1YPR, R1ZPR, TOFORP1R,  BDCAPIOR, 

4R2XPR,  R2YPR,  R2ZPR,  T0F0RP2R,  BDCAP20R, 

2PXPL, PYPL, PZPL,  TOTFORL,  DCAPL,  CASEP,  AP,  BP. 

3R1XPL, R1YPL,  RJZPL,  TOFORP1L.  BDCAPIOL, 

4R2XPL, R2YPL,  R2ZPL, T0F0RP2L,  BDCAP20L, 

5NG,  ZZ,  DO,  RGD,  AOO,  BOG, 

6PXGR,  PYOR,  PZOR.  TOTFORGE,  DCAG,  CASEG,  AG,  BG, 

6PXGL,  PYGL,  PZGL,  TOTFORGE.  DCAG,  CASEG,  AG,  BG, 

7R1XG,  R1YC,  R1ZG,  TOFORG1 , BDCAGIO, 

8R2XG,  R2YG,  R2ZG,  T0F0RG2,  BDCAG20, 

9D1,  PI,  LI,  HI.  El ) 

CALCULATE  LIFE  AND  DYNAMIC  CAPACITY  OF  PLANETARY  UNIT  COMPONENTS 
CALCULATE  LIFE  OF  PLANETARY  UNIT 

CALL  PLANCA( ISTEP, NCOMP, MGP,  NS. NPS, NPR,  NR,  PHIS1,  PHIR1, 

IRS,  RPS,  RPR.  RR,  CB,  A,  V,  PB,  N,  EB,  FTT , 

2B1SM.  PS,  ES,  WDSM,  B1RM,  PR,  ER,  WDRM, 

3T0S-  TOF,  SOS.  SOF,  CS,  LS,  FS.  CR,  LR,  FR,  ADI,  AL1 ,  AH1.  AE1, 

4LPLAN. HPLAN,  EPLAN ) 

PRINT  OUT  RESULTS  FOR  THE  PLANETARY  UNIT 

CALL  PLANOT(  ISTEP.  N,  V,  CB,  FB,  NS,  PDS,  PHIS,  WDSM,  BlSM,  FS, 

1NR.  PDR,  PHIR,  WDRM,  B1RM,  FR,  NP,  NPS.  NPR,  TOS,  TOF.  SOS,  SOF,  FTT. 

2AD1,  API,  AL1,  AH1 ,  AE1  ) 

DEFINE  TRANSMISSION  LIFE  ARRAYS 

DO  50  IE-1,  6 

ZE1 (IE)-CEl (IE) 

ZE1  (  IE-*-6)»CEl  (  IE) 

ZL1 ( IE)»CL1 ( IE) 

ZL1 ( IE+6)»DL1 ( IE) 

DO  S  IE-1,  9 

ZE1 ( IE+12>=E1 ( IE) 

ZL1 ( IE+12J-L1 ( IE) 

DO  9  IE-1, ISTEP 

ZE1 ( IE+2 1 ) =AE 1 ( IE) 

ZL1 ( IE+21 >*AL1 < IE) 

CALL  LIFE ( ZL1 . INCOMP. ZE1. ZNCOMP. LTRANS, ETRANS) 


HTRANS-L TRANS* 16666.  667/SOF 


ESTIMATE  10  PERCENT  DYNAMIC  CAPACITY  OF  TRANSMISSION 

CDMIN-CDl(l) 

DO  91  1-2. 6 

IF(CD1<I).  LT.  CDMIN)CDMIN=CD1 ( I ) 

DELTATO— .  1*CDMIN 

DELTATI-O.  9*NP/NG*DELTAT0/MG/MGS 
DTO-O.  0 
DTI-O.  0 
DO  92  1-1. 10 

DTI-DTI+DELTATI 
DTO— DTO+DELTATO 
DYN( I )— DTO 
CALL  SPBVCA< 

IDT  I.  TOF,  CSI,  SOF,  CMC.  CMGS,  CNP,  CNC. 

2CA0,  C GAMMA 1 ,  CROT,  CSPR,  CPHE1.  CPHSI1.  C2Z1. 

3CPTL,  CCAP,  CBP,  CRP,  CGTL,  CAG,  CBG.  CRG, 

4CITYPEP1,  CRFP1,  CNBP1,  CDP1,  CACP1,  CBDCAP1,  CAK1,  CE1  (2),  CADJP1, 
9CITYPEP2,  CRFP2,  CNBP2,  CDP2,  CACP2,  CBDCAP2.  CAK2,  CE1  (3).  CADJP2, 
6CITYPEG1, CRFG1, CNBG1 , CDG1 . CACG1 ,  CBDCAG1 ,  CAK3.  CE1 ( 5 > ,  CADUG1 , 
7CITYPEG2, CRFG2, CNBG2. CDG2, CACG2, CBDCAG2, CAK4. CE1 (6) » CADJG2. 
8CF,  CE,  CPG,  CE1  (  1  ) ,  CRPD,  CRGD, 

9CPXP,  CPYP,  CPZP,  CTOTFOR, CPXG, CPYG,  CPZG, CTOTFOR. 

1CR1 XP. CR1YP, CR1ZP, CR2XP, CR2YP, CR2ZP, 

2CR1XG, CR1YG. CR1ZG. CR2XG. CR2YG, CR2ZG. 

3CL1 (2). CHI (2), CT0F0RP1, CPI (2),  CBDCAP10, CD1 (2), 

4CL1  (3).  CHI  (3),  CT0F0RP2,  CP 1 ( 3 ) ,  CBDCAP20,  CD1  (3), 

5CL1(9).  CHI (5).  CT0F0RG1, CP1<5>, CBDCAG10, CD1(5), 

6CL1<6), CHI (6),  CT0F0RG2,  CPI  (6).  CBDCAG20,  CD1  (6), 

7CL1 <  1  > . CHI ( 1 ) , CDCAP, CDl ( 1 > , 

3CL1  (4),  CHI  (4),  CDCAGi  CDl  (4), 

9LI ( I >, DUMB,  DUMB) 

CONTINUE 

CALL  CAP(DYN, LI,  10, CDSB, CPSB) 

ESTIMATE  10  PERCENT  DYNAMIC  CAPACITY  OF  TRANSMISSION 

DMIN-D1 ( 1 ) 

DO  21  1-2,  9 

IF(D1(I).  LT. DMIN)DMIN-D1 < I ) 

DELTATO-.  1*DMIN 
DELTATI-O.  5*DELTAT0/MG/MGS 
DTIR-O.  0 


DTIL*0.  0 
DT0»0.  0 


START  COUNTER  FOR  DYNAMIC  CAPACITIES  BETWEEN  10  AND  100  PERCENT 
OF  TRANSMISSION  DYNAMIC  CAPACITY 

DO  22  1-1.  10 

DTIR-DTIR+DELTATI 
DT I L-DT I L+DELT AT I 
DTO-DTO+DELTATO 
DYN( I )*DTO 

CALCULATE  LIFE  FOR  EACH  DYNAMIC  CAPACITY 
CALL  DPBVCA( 

1DTIR.  DTIL.  DTO,  SI-  SOF,  MO,  MGS,  NP,  NO. 

2 AO.  0AMMA1,  ROT.  SPR.  PHE1.  PHSI1,  ZZ1.  ZIP. 

3PTL.  AP,  BP.  RP.  GTL.  AG.  BG.  RG. 

4ITYPEP1,  RFP1,  NBP1.  DPI.  ACPI.  BDCAP1.  AK 1 ,  El  ( 2 ) .  ADJP 1 . 

5ITYPEP2.  RFP2,  NBP2.  DP2.  ACP2.  BDCAP2.  AK2,  El  (3) .  ADJP2, 

6ITYPEG1. RFG1. NBG1, DG1, ACG1. BDCAG1.  AK3,  El (5),  ADJG1, 

7ITYPEG2.  RFG2,  NBG2,  DG2,  ACG2.  BDCAG2.  AK4,  El  (6) ,  ADJG2. 

8F«  E.  PG.  EKD.RPD,  RGD, 

9PXPR, PYPR, PZPR, TOTFORR, PXGR, PYGR, PZGR. TOTFORGE. 

9PXPL.  PYPL.  PZPL.  TOTFORL,  PXGL.  PYGL,  PZGL,  TOTFORGE, 

1R1XPR, R1YPR. R1ZPR, R2XPR , R2YPR. R2ZPR, 

1R1XPL. R1YPL, R1ZPL, R2XPL, R2YPL. R2ZPL, 

2R1XG,  R1YG,  R1ZG,  R2XG,  R2YG,  R2ZG. 

3L1 (2),  HI (2),  T0F0RP1R.  PI (2), BDCAP10R, D1 (2). 

4L1 (3).  HI (3),  T0F0RP2R, PI (3), BDCAP20R, D1 (3), 

5L1  (5),  HI  (5).  T0F0RG1,  PI  (5),  BDCAG10,  D1  (5), 

6L1 (6). HI <6),  T0F0RG2.  PI  (6).  BDCAG20,  D1  (6), 

7L1  ( 1 ),  HI  ( 1  ),  DC  APR,  D1  ( 1  ), 

8L1  (4).  Hl(4),  DC  AG,  D1  <  4 ) , 

*L1  (7),  HI  <7),  DCAPL,  Dl<7>, 

*L1 ( 8 ) ,  HI (8).  T0F0RP1L, PI (8), BDCAP10L, D1 (8), 

*Li (9 ) , HI ( 9 ) » T0F0RP2L, PI (9), BDCAP10L,  D1 (9), 

9LI(I). DUMB,  DUMB) 

CONTINUE 

CALL  CAP(DYN,  LI,  10,  DSB,  PSP) 


START  COUNTER  FOR  LOADS  BETWEEEN  15  AND  100  PERCENT  OF  DYNAMIC 
CAPACITY 


c 


23 


24 

C 

C 

C 

C 


C 

C 


ADM IN* ADI ( 1 ) 

DO  23  1-2,  I STEP 

IF(AD1(I).  LT.  ADMIN) ADMIN-ADl(I) 

DELTATO-. 1* ADM IN 
DELTATOS-DELTATO/MGS 
DTO-O.  0 
DTOS-O.  0 

DO  24  1-1.  10 

DTOS-DTOS+DELTATOS 
DTO-DTO+DELTATO 
DYN( I ) -DTQ 

CALL  PLANCA( ISTEP.  NCOMP.  MGP.  NS,  NPS, NPR, NR, PHISl. PHIR1. 

IRS.  RPS,  RPR.  RR.  CB,  A,  V,  PB,  N,  EB,  FTT, 

2B1SM,  PS,  ES.  WDSM.  B1RM,  PR,  ER,  WDRM, 

3DT0S,  DTO.  SOS,  SOF,  CS,  LS,  FS.  CR,  LR,  FR,  ADI,  AL1.  AH1 ,  AE1.  ALI(I ),  DUMB. 
4 DUMB ) 

CONTINUE 

CALL  CAP  ( DYN,  ALI,  10,  DP  LAN,  PPLAN) 


START  COUNTER  FOR  LOADS  BETWEEEN  15  AND  150  PERCENT  OF  DYNAMIC 
CAPACITY 


IF (ADMIN. LT.  DMIN ) DMIN-ADMIN 
IF (CDMIN. LT. DMIN )DMIN*C DMIN 
DELTATO-.  1*DMIN 
DELTATOS-DELTATO/MGS 
DELTATIR-DELTATOS/MG/2. 
DELT AT I L-DELT ATOS / MG / 2 . 
CDELTI=DELTATIR*CNP/CNG 
CTI-O.  0 
DTIR-O.  0 
DTIL-O.  0 
DT0S*0. 0 
DTO-O.  0 
DO  20  1-1,  10 

CTI-CTI+CDELTI 
DTIR-DTIR+DELTATIR 
DTIL-DTIL+DELTATIL 
DTOS-DTOS+DELT  ATOS 
DTO«DTO-*-DELTATO 
DYN( I ) -DTO 


CALL  SPBVCAC 

1CTI,  DTO.  CSX.  SOF,  CMO,  CMOS,  CNP,  CNO, 

2CA0,  COAMMA1,  CROT,  CSPR,  CPHE1,  CPHSI1,  CZZt, 

3CPTL, CCAP, CBP, CRP, COTL, CAO, CBG. CRO, 

4CITYPEP1, CRFP1, CNBP1, CDP1, CACPi, CBDCAP1, CAK1, CEI  <2>,  CADJP1, 
9CITYPEP2,  CRFP2,  CNBP2,  CDP2,  CACP2,  CBDCAP2,  CAK2,  CE1  (3),  CADJP2, 
AC  I TYPE© 1,  CRFOl,  CNBOl,  CDC1, CACOl, CBDCAOl , CAK3, CEi ( 3 > , CADJG1 , 
7CITYPE02,  CRF02,  CNB02,  CDG2,  CACC2,  CBDCAG2,  CAK4.  CEI (6) .  CADJ02, 
8CF,  CE.  CPO,  CEI  ( 1  > ,  CRPD,  CRGD. 

9CPXP, CPYP, CPZP, CTOTFOR, CPXG, CPYG, CPZG, CTOTFOR* 

1CR1XP, CRXYP, CR1ZP,  CR2XP,  CR2YP,  CR2ZP, 

2CR1X0. CR1YO, CR1ZO,  CR2XG,  CR2Y0,  CR2ZG, 

3CL1 (2), CH1(2), CTOFORP1,  CPI (2) ,  CBDCAPIO,  CD1(2), 

4CL1 (3) , CHI (3) ,  CT0F0RP2, CPI <3> , CBDCAP20. CD1 (3) # 

9CL1<9),  CHK3).  CTOFOROl,  CPI  (  9) .  CBDCAGIO,  CD1  (  9 ) , 

6CL1 (6) . CHI (6) , CT0F0RG2, CPI (6) ,  CBDCAG20,  CD1 (6) , 

7CL1 ( 1 ) ,  CHI < 1 ) .  CDCAP, CD1  U  > , 

8CL1  <4),  CHI  (4),  CDCAO,  CD1  (4), 

9DUMB, DUMB.  DUMB) 

CALL  DPBVCAt 

1DTIR.  DTIL,  DTO.  SI.  SOF,  MG,  MGS,  NP,  NG, 

2 AO.  GAMMA1,  ROT.  SPR,  PHE1,  PHSI1,  ZZ1,  ZIP, 

3PTL.  AP,  BP,  RP,  GTL,  AO.  BG,  RG. 

4ITYPEP1.  RFP1,  NBP1,  DPI,  ACPI,  BDCAP1,  AK1 ,  El  (2),  ADJP1, 

9ITYPEP2,  RFP2.  NBP2,  DP2,  ACP2,  BDCAP2,  AK2,  El  (3),  ADJP2. 

6ITYPE01,  RFG1.  NBOl.  DG1,  ACGl.  BDCAG1,  AK3,  El  (9),  ADJG1, 

7ITYPEG2,  RFG2.  NBG2,  DG2,  ACG2,  BDCAG2,  AK4,  El  (6),  ADJG2. 

8F.  E,  PG.  El  ( 1 ) ,  RPD,  RGD, 

9PXPR. PYPR, PZPR, TOTFORR, PXGR,  PYGR,  PZGR,  TOTFORGE, 

9PXPL,  PYPL,  PZPL,  TOTFORL,  PXGL,  PYGL,  PZGL,  TOTFORGE, 

1R1XPR, R1YPR, R1ZPR, R2XPR, R2YPR,  R2ZPR, 

1R1XPL,  R1YPL.  R1ZPL,  R2XPL,  R2YPL,  R2ZPL, 

2R1XG.  RIYO,  RIZO.  R2XG,  R2YG.  R2ZG, 

3LK2),  H 1  ( 2 )  <  TOFORP1R,  PI  (2) ,  BDCAPIOR,  D1  (2), 

4L1(3),  Hl<3),  T0F0RP2R,  Pl!3), BDCAP20R, Dl(3), 

9L1(9),  HI  (9).  TOFORG1,  PI  (9),  BDCAGIO,  Dl<5>, 

6L1<6).  HI (6),  TOFORG2, PI (6),  BDCAG20, D1 (6 ) , 

7L1 ( 1 ) , HI < 1 ) , DC APR, Dl(l), 

8L1(4),  HI  (4),  DCAO,  Dl(4), 

*L1<7),  HI  (7),  DCAPL,  Dl<7), 

•LI (8), HI (8). TOFORPIL, PI <8>, BDCAPIOL, D1 (8), 

*L1<9),  HI  (9),  T0F0RP2L,  PI  (9),  BDCAPIOL,  Di(9), 


9 DUMB. DUMB, DUMB ) 

CALL  PLANCA( ISTEP,  NCOMP,  MGP,  NS,  NPS,  NPR.  NR,  PHIS1,  PHIR1, 

IRS,  RPS,  RPR,  RR,  CB,  A.  V.  PB,  N,  EB,  FTT, 

2B1SM,  PS,  ES,  WDSM,  B1RM,  PR,  ER,  WDRM, 

3DT0S,  DTO,  SOS,  SOF,  CS,  LS,  FS,  CR,  LR,  FR,  ADI.  AL1,  AH  1 ,  AE 1 ,  DUMB,  DUMB, 

4 DUMB ) 

DO  94  IE-1,6 

ZLKIE)-CLl(IE) 

54  ZL1 ( IE+6)-CLl < IE) 

DO  12  IE-1,9 

ZE 1 ( I E+ 12) — E 1 ( I E ) 

12  ZL1(IE+12)»L1(IE) 

DO  13  IE-1, ISTEP 

ZE1 ( IE+21 ) -AE1 < IE> 

13  ZL1( IE+21 )-ALl< IE) 

CALL  LIFEtZLl, INCOMP, ZE1, ZNCOMP, ZLI(I), DUMB) 

20  CONTINUE 

CALL  CAP (DYN, ZLI,  10,  DTRANS,  PTRANS ) 

1220  FORMAT ( '  TOTAL  TRANSMISSION'/) 

1221  FORMAT ( '  SPIRAL  BEVEL  UNIT'/) 

1222  FORMAT ( '  PLANETARY  UNIT'/) 

WRITEd, 1221) 

CALL  DPLHE(CDSB,  CPSB,  CLSB, CHSB, CESB) 

WRITE(1, 1221) 

CALL  DPLHE(CDSB,  CPSB,  DLSB, DHSB, DESB ) 

WRITEd,  1221) 

CALL  DPLHE ( DSB ,  PSP, LSB , HSB . ESB ) 

WRITEd,  1222) 

CALL  DPLHE <DPLAN, PPLAN, LPLAN, HPLAN, EPLAN ) 

WRITEd,  1220) 

CALL  DPLHE (DTRANS, PTRANS, LTRANS, HTRANS. ETRANS) 

STOP 

END 

SUBROUTINE  PLAN 

REAL  NS,  NPS,  NPR,  NR,  N.  LS,  LR.  LPLAN 

REAL  NCOMP  (9),  D1(5),P1(5),L1(5),  HI  (  9  > .  El  <  9) ,  MG1 ,  LI  (10 ) ,  DYNdO) 
C 

C  CB  DYNAMIC  CAPACITY  OF  THE  BEARINGS 

C  A  LIFE  ADJUSTMENT  FACTOR  OF  THE  BEARINGS 

C  EB  WE I BULL  EXPONENT  OF  THE  BEARINGS 

C  PB  LOAD  LIFE  EXPONENT  OF  THE  BEARINGS 

C  N  NUMBER  OF  PLANETARY  GEARS 

C  NCOMP (1)  NUMBER  OF  PLANET  BEARINGS 

C  NCOMP (2)  NUMBER  OF  SUN  GEARS 

C  NCOMP (3)  NUMBER  OF  RING  GEARS 


Wi 


a 


NCOMP  <  4  >  NUMBER  OF  PLANET-SUN  GEARS 
NCOMP  (3)  NUMBER  OF  PLANET-RING  GEARS 
PDS  PITCH  OF  PLANET-SUN  MESH 

PDR  PITCH  OF  PLANET -RING  MESH 

NS  NUMBER  OF  SUN  GEAR  TEETH 

NPS  NUMBER  OF  PLANET-SUN  GEAR  TEETH 

NPR  NUMBER  OF  PLANET-RING  GEAR  TEETH 

NR  NUMBER  OF  RING  GEAR  TEETH 

PHIS  PRESSURE  ANGLE  OF  SUN  GEAR  (DEG) 

PHIS1  PRESSURE  ANGLE  OF  SUN  GEAR  (RAD) 

PHIR  PRESSURE  ANGLE  OF  RING  GEAR  (DEG) 

PHIR1  PRESSURE  ANOLE  OF  RING  GEAR  (RAD) 

WDSM  WIDTH  OF  THE  SUN  GEAR  MESH 
WORM  WIDTH  OF  THE  RING  GEAR  MESH 

ES  WE I BULL  EXPONENT  OF  THE  SUN  GEAR  MESH 

ER  WE I BULL  EXPONENT  OF  THE  RIN  GEAR  MESH 

PS  LOAD-LIFE  EXPONENT  OF  THE  SUN  GEAR  MESH 

PR  LOAD-LIFE  EXPONENT  OF  THE  RING  GEAR  MESH 

B1SM  MATERIAL  CONSTANT  OF  THE  SUN  GEAR  MESH 

B1RM  MATERIAL  CONSTANT  OF  THE  RING  GEAR  MESH 

RS  RADIUS  OF  THE  SUN  GEAR 

RPS  RADIUS  OF  THE  PLANET-SUN  GEAR 

RPR  RADIUS  OF  THE  PLANET-RING  GEAR 

RR  RADIUS  OF  THE  RING  EGAR 

I STEP  NUMBER  OF  COMPONENTS  IN  THE  PLANETARY 
-  4  UNSTEPPED  PLANETARY  UNIT 
■  S  STEPPED  PALETARY  UNIT 

INPUT  TORQUE  AND  SPEED 

FORMAT ( 'WHAT  IS  THE  INPUT  TORQUE  OF  THE  TRANSMISSION') 
FORMAT! 'WHAT  IS  THE  INPUT  SPEED  OF  THE  TRANSMISSION') 

WRITE! 1. 101 ) 

READ(1, *)TI 
WRITE(1.  102) 

READd,  «)SI 

CALL  PLANIN(CBi  A,  V,  EB,  PB.  N,  NCOMP,  PDS,  PDR,  NS,  PHIS,  PHIS1, 
1PHIR, PHIR1, WDSM, ES, PS, B1SM,  ISTEP, NPS, NPR, NR, WDRM, ER, PR,  B1RM, 
2RPR, RPS, RR, RS) 

P 1 ( 1 ) *PB 
P1(2)-PS 
PI (3)»PR 
PI (4>*PS 
PI (5)«PR 
MO 1 ■ 1 . 0 


on  r»  n  f> 


t 


T0F«TI*<1. +<RR*RPS)/<RS*RPR) > 
I  S0F-SI/<1.  +<RR*RPS)/<RS*RPR> ) 


CALL  PLANCA( ISTEP. NCOMP.  HOI. NS.  NPS.  NPR.  NR.  PHIS1.  PHIR1, 

IRS.  RPS,  RPR,  RR,  CB,  A.  V.  PB,  N.  EB.  FTT, 

2B1SM,  PS,  ES,  WDSM,  B1RM,  PR.  ER.  WORM. 

3TI,  TOP.  SI,  SOP.  CS.  LS,  FS,  CR.  LR.  FR.  Dl,  LI,  HI.  El,  LPLAN,  HP  LAN,  EPLAN) 


C 

CALL  PLANOTt  ISTEP,  N,  V,  CB.  FB,  NS.  POS,  PHIS.  WDSM.  B1SM.  FS. 

1NR,  PDR.  PHIR,  WORM,  B1RM.  FR,  NP.  NPS,  NPR,  TI.  TOF,  SI.  SOF,  FTT. 

2D1,  PI,  LI.  HI,  El  > 

DMIN-D1C1) 

DO  10  1-2,  ISTEP 

10  IF(D1(I).  LT.  DMIN)DMIN-Dl(I) 

DELTATO-.  1#DMIN 

DELTATI-DELTATO/ <  1.  «-<RR*RPS)  /  (RS*RPR  )  ) 

DTI— 0.  0 
DTO-O.  0 
DO  20  1-1 . 10 

DTI-DTI+DELTATI 
DTO-DTO+DELTATO 
DYN( I )— DTO 

CALL  PLANCA( ISTEP, NCOMP, M01, NS,  NPS,  NPR,  NR,  PHIS1,  PHIR1, 

IRS,  RPS,  RPR,  RR,  CB,  A,  V,  PB,  N,  EB.  FTT, 

2B1SM.  PS,  ES,  WDSM,  B1RM,  PR,  ER,  WDRM, 

3DTI,  DTO,  SI,  SOF,  CS,  LS,  FS,  CR,  LR,  FR,  Dl,  LI,  HI,  El,  LI<  I  ),  DUMB,  DUMB) 
20  CONTINUE 

CALL  CAP<DYN»  LI,  10, DPLAN, PPL AN) 

WRITE ( 1 , 1000) 

1000  FORMAT ( '  TOTAL  TRANSMISSION'/) 

CALL  DPLHE< DPLAN,  PPLAN,  LPLAN,  HPLAN,  EPLAN) 

STOP 

END 

SUBROUTINE  DBPL 

INTEGER  CASEP, CASEO,  PTL,  OTL 

REAL  NP,  NO,  NBP 1 ,  NBP2,  NB01,  NB02,  MO,  LSB 

REAL  LI  (9),  DK9),  El  (9),  HI  (9),  PI  (9),  DYN<  10 ) ,  LI  ( 10 ) 

REAL  NS,  NPS,  NPR,  NR,  N,  LS,  LR,  LPLAN 

REAL  NCOMP  <3>,AD1<3),API<9),AL1<9>,AH1(9>,AE1<3>,ALI<10> 

REAL  MOS, MOP, ZNC0MPU4),  ZE1(14),  ZL1 ( 14) , LTRANS,  ZLI(IO) 


FORMAT< 'WHAT  IS  THE  INPUT  TORQUE  OF  THE  RIGHT  PINION ' ) 

FORMAT < 'WHAT  IS  THE  INPUT  TORQUE  OF  THE  LEFT  PINION') 

FORMAT ( 'WHAT  IS  THE  INPUT  SPEED  OF  THE  TRANSMISSION') 

WRITEd, 101) 

READd,  *>TIR 
WRITEd.  102) 

READd,  * ) TIL 
WRITEd.  103) 

READd.  *)SI 

INPUT  SPIRAL  BEVEL  GEAR  GEOMETRY 

CALL  DPBVIN(NP.  NG.  AO.  PHE.  F.  PHSI.  ROT.  SPR.  THETA.  E.  El  (1 ).  PC. 

1PHE1.  PHSI  1.  THETA  1,  CASEP.  PTL.  A P.  BP.  ITYPEP1.  NBP1,  DPI,  ACPI.  AK1, 
2BDCAP 1 .  RFP 1 . El ( 2 ) .  I TYPEP2.  NBP2,  DP2,  ACP2,  AK2.  BDCAP2, RFP2, El ( 3 ) , 
3CASEG,  GTL.  AG,  BG.  ITYPEG1.  NBG1.  DG1.  ACG1.  AK3,  BDCAG1 .  RF01.  El  (5), 
4ITYPEG2, NBG2. DG2, ACG2. AK4. BDCAG2, RF02. El (6), MO. GAMMA 1 ,  GAMMA.  21 
SZZ1.  DP.  DG.  RPD.  RP.  RGD.  RO.  HK,  AOO.  AOP.  HT,  BOO.  BOP.  PD, 

6ADJP1,  ADJP2, ADJG1 / ADJG2. ZIP) 

E 1 ( 4 ) =E 1(1) 

El  (7)=>E1  <  1 ) 

E1<0)-E1<2> 

E 1 ( 9 ) =E 1(3) 

P1(1)=PG 
PI <4)*PG 
P1(7)*PG 

CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  TRANSMISSION 

TOS»TIR*MG+TIL*MG 

SOS-SI/MC 

READ  IN  VALUES  OF  PLANETARY  UNIT 

CALL  PLANINtCB.A  V,  EB.  PB.  N,  NCOMP.  PDS,  PDR,  NS,  PHIS,  PHIS1, 

1PHIR, PHIR1, WDSM, ES, PS, B1SM,  ISTEP, NPS, NPR, NR, WDRM, ER,  PR,  B1RM, 
2RPR.  RPS.  RR,  RS) 

API <1 >-PB 
API <2>«PS 
AP 1 ( 3 ) -PR 
API (4)-PS 
AP 1 ( 5  > -PR 

CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  PLANETARY  UNIT 


T0F«T0S*<1.  +<RR*RPS>/<RS*RPR> > 

SOF-SOS/ (1 .  +  < RR*RPS ) / <  RS*RPR  >  > 

MOS- < 1 .  ♦ <  RR*RPS > / <  RS*RPR > ) 

MOP-1.  0 

INC0MP-9+ISTEP 

DO  3  IN-1,9 

ZNCOMP  ( IN ) — 1 .  O 

DO  6  IN-1,  ISTEP 

ZNCOMP ( IN+9  >  — NCOMP ( IN ) 

CALCULATE  LIFE  AND  DYNAMIC  CAPACITY  OF  SPIRAL  BEVEL  UNIT  COMPONENTS 
CALCULATE  LIFE  OF  SPIRAL  BEVEL  UNIT 


CALL  DPBVCA< 

1TIR,  TIL.  TOF.  SI,  SOF.  MO,  MOS.  NP,  NO, 

2 AO, GAMMA 1 ,  ROT, SPR.  PHE1,  PHSI1,  ZZ1.  ZIP, 
3PTL,  AP,  BP.  RP,  GTL,  AO.  BG,  RG. 

4ITYPEP1.  RFP 1 ,  NBP1,  DPI.  ACPI,  BDCAP1,  AK1, 


El (2) < 


AD JP 1 » 
ADJP2, 


3ITYPEP2.  RFP2.  NBP2,  DP2,  ACP2,  BDCAP2,  AK2.  El  ( 3 )  <  ADJP2 
6ITYPE01,  RFG1.  NBG1,  DOl.  ACG1,  BDCAG1,  AK3,  El  (5),  ADJC1 
7ITYPEG2, RFG2, NBG2. DG2, ACG2, BDCAG2,  AK4,  El (6).  ADJG2 
8F,  E,  PO,  El  <  1 ) ,  RPD,  RGD, 

9PXPR, PYPR, PZPR, TOTFORR, PXGR, PYGR, PZGR, TOTFORGE, 
9PXPL,  PYPL,  PZPL,  TOTFORL,  PXGL.  PYGL,  PZGL,  TOTFORGE, 
1R1XPR,  R1YPR. R1ZPR.  R2XPR,  R2YPR.  R2ZPR, 

1R1XPL, R1YPL, R1ZPL, R2XPL,  R2YPL,  R2ZPL, 

2R1XG,  R1YG.  R1ZG.  R2XG,  R2YG,  R2ZG, 

3L1 (2).  HI (2),  TOFORP1R,  PI (2), BDCAPIOR, Dl(2), 

4L1 (3), HI (3).  T0F0RP2R, Pl<3>, BDCAP20R,  D1 <3), 

5Ll<3>. HI (3), TOFORGl, Pl<3),  BDCAGIO,  Dl<5>, 

6L1(6),  HI  (6),  T0F0RG2,  PI  (6),  BDCAG20,  D1  (6), 

7LI  <  1 ) ,  Hi  ( 1 ) ,  DC  APR,  D1  <  1 ) , 

8L1  (4) ,  HI  (4) ,  DC  AO,  D1  (4), 

*L1(7>,  HI  (7),  DCAPL.  Dl(7), 

*L1(8),  HI  (8).  TOFORP1L,  PI  (8),  BDCAPIOL,  DK8). 

*Ll (9).  HI (9),  T0F0RP2L,  PI (9), BDCAPIOL. D1 (9) , 

9LSB, HSB, ESB  > 


PRINT  OUT  LIVES  AND  DYNAMIC  CAPACITIES  OF  COMPONENTS 


CALL  DPBVOT ( PD,  PHE,  PHSI,  SPR,  F,  AO,  SI,  SOF,  ROT,  TIR,  TIL,  TOF, 
1 THETA, NP,  GAMMA, DP,  RPD,  AOP,  BOP, 


r:’ 


vV/V- 


iw* 


55 


:«i*a 


S 


2PXPR,  PYPR,  PZPR, TOTFORR,  DC APR » CASEP,  AP, BP, 

3R1XPR, R1YPR, R1ZPR, TOFORP1R,  BDCAPIOR, 

4R2XPR, R2YPR, R2ZPR, T0F0RP2R, BDCAP20R, 

2PXPL,  PYPL,  PZPL,  TOTFORL,  DCAPL,  CASEP,  AP,  BP, 

3R1XPL,  R1YPL,  R1ZPL,  TOFORP1L,  BDCAPIOL, 

4R2XPL, R2YPL, R2ZPL, T0F0RP2L,  BDCAP20L, 

3NG.  ZZ,  DO,  RGD,  AOG,  BOG, 

6PXGR, PYOR,  PZGR, TOTFORGE,  DCAO,  CASEG,  AG,  BG, 

6PXGL,  PYGL,  PZGL,  TOTFORGE,  DC  AG,  CASEO,  AG,  BG, 

7R1XG,  R1YG,  R1ZO,  TOFORG1,  B  DC  AGIO, 

8R2XG, R2YG, R2ZG, T0F0RG2, BDCAG20, 

9D1,  PI,  LI,  HI,  El ) 

CALCULATE  LIFE  AND  DYNAMIC  CAPACITY  OF  PLANETARY  UNIT  COMPONENTS 
CALCULATE  LIFE  OF  PLANETARY  UNIT 

CALL  PLANCA( I STEP, NCOMP, MOP,  NS, NPS, NPR,  NR,  PHIS1,  PHIR1, 

IRS,  RPS,  RPR.  RR,  CB.  A,  V,  PB,  N,  EB,  FTT, 

2B1SM,  PS,  ES,  WDSM,  B1RM,  PR,  ER,  WDRM, 

3T0S.  TOF,  SOS,  SOF,  CS,  LS,  FS.  CR,  LR.  FR,  ADI,  AL1,  AH1,  AE1, 

4LPLAN, HPLAN,  EPLAN ) 


PRINT  OUT  RESULTS  FOR  THE  PLANETARY  UNIT 

CALL  PLANOT ( ISTEP,  N,  V,  CB,  FB.  NS,  PDS,  PHIS,  WDSM,  B1SM,  FS, 
1NR,  PDR.  PHIR,  WDRM,  B1RM,  FR,  NP,  NPS,  NPR,  TOS,  TOF,  SOS,  SOF,  FTT, 
2AD1 ,  API,  AL1,  AH 1 , AE 1 > 


3 


DEFINE  TRANSMISSION  LIFE  ARRAYS 

DO  8  IE-1, 9 

ZE1 ( IE) -El (IE) 

ZL1<IE)»L1( IE) 

DO  9  IE-1, ISTEP 

ZE1  <  IE+9 )  -AE1  ( IE ) 

ZL1 ( IE+9 ) -AL1 ( IE) 

CALL  LIFE( ZL1,  INCOMP,  ZE1, ZNCOMP, LTRANS,  ETRANS) 
HTRANS-LTRANS* 16666.  667/SOF 


ESTIMATE  10  PERCENT  DYNAMIC  CAPACITY  OF  TRANSMISSION 

DMIN-D1 ( 1 ) 

DO  21  1=2, 9 

IF(D1(Z).  LT  DMIN)DMIN-D1 ( I ) 

DELTATO-  1*DMIN 


I* 


c 

c 

c 

c 


c 

c 

c 


22 


c 

c 

c 


DEL TATI-O.  3*DELTAT0/MG/MGS 
DTIR-O.  0 
DTIL-O. 0 
DTO-O.  0 


START  COUNTER  FOR  DYNAMIC  CAPACITIES  BETWEEN  10  AND  100  PERCENT 
OF  TRANSMISSION  DYNAMIC  CAPACITY 


DO  22  1-1 , 10 

DTIR-DTIR+DELTATI 
DTIL-DTIL+DELTATI 
DTO— DTO+DELT ATO 
DYN( I )-DTO 


CALCULATE  LIFE  FOR  EACH  DYNAMIC  CAPACITY 


CALL  DP B VC A ( 

1DTIR,  DTIL,  DTO,  SI.  SOF.  MG,  MGS,  NP,  NG, 

2A0,  GAMMA1,  ROT,  SPR,  PHE1,  PHSI1,  ZZ1,  ZIP, 

3PTL,  AP.  BP,  RP,  GTL,  AG.  BG.  RG, 

4ITYPEP1,  RFP1,  NBP 1 ,  DPI,  ACPI,  BDCAP1,  AK1,  El  (2).  ADJP1, 
3ITYPEP2,  RFP2,  NBP2.  DP2,  ACP2,  BDCAP2,  AK2,  El  (3).  ADJP2, 
6ITYPEG1,  RFG1,  NBG1,  DG1,  ACG1,  BDCAG1 ,  AK3,  El  (5),  ADJG1, 
7ITYPEG2,  RFG2,  NBG2,  DG2,  ACG2,  BDCAG2,  AK4,  El  (6),  ADJG2, 
8F,  E,  PG,  El  ( 1 ) ,  RPD,  RGD, 

9PXPR, PYPR, PZPR,  TOTFORR,  PXGR, PYGR,  PZGR,  TOTFORGE, 
9PXPL,  PYPL,  PZPL,  TOTFORL,  PXGL,  PYGL,  PZGL,  TOTFORGE, 
1R1XPR, R1YPR, R1ZPR, R2XPR,  R2YPR,  R2ZPR, 

1R1XPL, R1YPL, R1ZPL, R2XPL, R2YPL, R2ZPL, 

2R1XG,  R1YG,  R1ZG,  R2XG,  R2YG,  R2ZG. 

3L1(2),  HI (2),  T0F0RP1R,  PI (2), BDCAP10R, D1 (2), 

4L1  (3), HI (3).  T0F0RP2R,  P 1 ( 3 ) ,  BDCAP20R,  D1 (3), 

5L1  (5),  HI  (3),  T0F0RG1,  PI  (5),  BDCAG10,  D1  (5), 

6L1(6),  HI (6),  T0F0RG2,  PI (6), BDCAG20, D1 (6) , 

7L1 ( 1 ) , HI ( 1 ) .  DC APR,  D1 ( 1 ) , 

8L1  (4),  HI  (4),  DCAG,  D1  (4), 

*L1<7>,  Hl<7>,  DCAPL,  D1  (7) , 

*L1(8),  HI  (8),  T0F0RP1L,  PI  (8), 

*L1  (9),  HI  (9),  T0F0RP2L,  PI  (9), 

9LI ( I ), DUMB, DUMB) 

CONTINUE 

CALL  CAP(DYN,  LI,  10,  DSB,  PSP) 


BDCAP10L,  D1  (8), 
BDCAP10L, D1 (9), 


128 


START  COUNTER  FOR  LOADS  BETWEEEN  15  AND  100  PERCENT  OF  DYNAMIC 
CAPACITY 

ADMIN-AD1 ( 1 > 

DO  23  1*2, I STEP 

IF( ADI < I ) .  LT.  ADMIN) ADMIN* ADI ( I ) 

DELTATO*. 1*ADMIN 
DELT  ATOS“DELT  ATO / MGS 
DT0*0.  0 
DT0S*0.  0 

DO  24  1*1,  10 

DTOS*DTOS+DELT  ATOS 
DTO=DTO+DELT  ATO 
DYN ( I ) =DTO 

CALL  PLANCA< ISTEP.  NCOMP,  MGP,  NS.  NPS.  NPR. NR. PHIS1, PHIR1. 

IRS,  RPS,  RPR,  RR,  CB,  A,  V,  PB,  N,  EB,  FTT, 

2B1SM,  PS,  ES,  WDSM,  B1RM,  PR,  ER,  WDRM, 

3DT0S,  DTO,  SOS,  SOF,  CS,  LS,  FS,  CR,  LR,  FR,  ADI,  AL1,  AH  1 ,  AE 1 ,  ALI  ( I  ),  DUMB, 
4 DUMB ) 

CONTINUE 

CALL  CAP  (DYN,  ALI,  10,  DPLAN,  PPL  AN) 

START  COUNTER  FOR  LOADS  BETWEEEN  15  AND  150  PERCENT  OF  DYNAMIC 
CAPACITY 

IF(  ADMIN.  LT.  DM  I N )  DM  I  N= ADM  I N 
DELT ATO*. 1*DMIN 
DELT  ATOS=DELT  ATO/MGS 
DELTATIR*DELTAT0S/MG/2. 

DELTAT I L=DELT ATOS/MG / 2 . 

DTIR=0.  0 
DTIL=0.  0 
DT0S*0.  0 
DTQ*0.  0 
DO  20  1*1,  10 

DTIR=DTIR+DELTATIR 
DTIL=DTIL+DELTATIL 
DTOS=DTOS+DELT  ATOS 
DTO=DTO+DELTATO 
DYN ( I >  =DTO 


CALL  DPBVCA < 

1DTIR,  DTIL,  DTO,  SI,  SOF,  MG,  MGS,  NP,  NG, 


2A0,  GAMMA  1,  ROT#  SPR,  PHE1.  PHSI1,  ZZ1,  ZIP. 

3PTL.  AP.  BP,  RP,  GTL,  AC,  BO,  RQ, 

4ITYPEP1,  RFP1,  NBP1 ,  DPI,  ACPI,  BDCAP1,  AK1,  El  (2).  ADJP1, 

3ITYPEP2,  RFP2,  NBP2,  DP2,  ACP2,  BDCAP2,  AK2,  El  (3),  ADJP2, 

6 1  TYPE©  1,  RFOl,  NBG1,  DOl,  ACOl ,  BDCAG1 ,  AK3,  El  (5),  ADJOl, 

7ITYPEG2,  RFG2,  NBG2,  DG2,  ACG2,  BDCAG2,  AK4,  El  (6) ,  ADJG2, 

8F,  E,  PC,  El  ( 1 ) ,  RPD,  RGD, 

9PXPR,  PYPR, PZPR,  TOTFORR,  PXOR,  PYGR,  PZOR,  TOTFOROE, 

9PXPL, PYPL, PZPL, TOTFORL, PXGL, PYOL, PZGL, TOTFORGE, 

1R1XPR,  R1YPR,  R1ZPR,  R2XPR, R2YPR, R2ZPR, 

1R1XPL,  R1YPL,  R1ZPL,  R2XPL,  R2YPL,  R2ZPL, 

2R1XG.  R1YG,  R1ZG,  R2XG,  R2YG,  R2ZG, 

3L1 (2),  HI (2),  TOFORP1R,  PI (2),  BDCAPIOR, D1 (2), 

4L1 (3)  •  HI (3) ,  TOFQRP2R,  P 1 <3>  >  BDCAP20R,  Dl(3), 

5L1  (5),  HI  (3),  TOFQRG1,  PI  (3),  BDCAGIO,  D1  (5), 

6L1C6),  HI (6),  T0F0RG2,  PI (6). BDCAG20, D1 (6), 

7L1 ( 1 ) , HI ( 1 ) . DC APR, Dl(l), 

8L1 (4), HI (4),  DCAG,  D1 (4), 

*L1<7),  HI  (7),  DCAPL,  Dl<7>, 

*L1 ( 8 ) ,  HI ( 8 ) ,  TOFORP1L.  PI (8>, BDCAPIOL, D1 ( 8 ) # 

*L1 (9),  HI (9),  T0F0RP2L,  PI (9) ,  BDCAPIOL,  D1 (9), 

9LId),  DUMB. DUMB) 

CALL  PLANCA< ISTEP.  NCOMP,  MGP, NS, NPS,  NPR,  NR, PHIS1, PHIR1, 

IRS,  RPS.  RPR.  RR,  CB,  A,  V.  PB,  N,  EB.  FTT, 

2B1SM,  PS,  ES,  WDSM,  B1RM,  PR,  ER,  WDRM, 

3DT0S,  DTO,  SOS,  SOF,  CS,  LS,  FS,  CR,  LR,  FR.  ADI,  AL1,  AH1 ,  AE1,  ALI  ( I ) ,  DUMB, 
4DUMB ) 

DO  12  IE=1,9 

12  ZL1 ( IE)=L1 ( IE) 

DO  13  IE=»1,  ISTEP 

13  ZL1 ( IE+9 ) =AL1 ( IE ) 

CALL  LIFEtZLl, INCOMP, ZE1, ZNCOMP, ZLI ( I ) , DUMB) 

20  CONTINUE 

CALL  CAP (DYN, ZLI, 10, DTRANS, P TRANS) 

1220  FORMAT <  '  TOTAL  TRANSMISSION'/) 

1221  FORMAT < '  SPIRAL  BEVEL  UNIT'/) 

1222  FORMAT ('  PLANETARY  UNIT'/) 

WRITEd,  1221) 

CALL  DPLHECDSB, PSP. LSB, HSB, ESB) 

WRITEd,  1222) 

CALL  DPLHEIDPLAN, PPLAN, LPLAN, HP LAN,  EPLAN ) 

WRITEd,  1220) 

CALL  DPLHE( DTRANS, PTRANS, LTRANS, HTRANS,  ETRANS) 

STOP 


SUBROUTINE  DBPLPL 

INTEGER  CASEP, CASEQ, PTL, GTL, BISTEP 

REAL  NP,  NO.  NBP1 1  NBP2,  NBG1.  NBG2.  MG,  LSB 

REAL  LI  (9),  Dl<9>,  El  (9).  HI  (9).  PI  (9),  DYN(IO).  LI  ( 10) 

REAL  NS,  NPS,  NPR,  NR,  N,  LS,  LR,  LPLAN 

REAL  NCOMP  (  5) ,  ADI  (5),  AP1(5>,  ALIO),  AH  1(5),  AE1  (  5 ) ,  ALI(IO) 

REAL  MGS,  MGPA,  MGPB, ZNCOMP< 19), ZE1 ( 19),  ZL1 ( 19), LTRANS,  ZLI ( 10) 
REAL  BNCOMP  (  9 ) ,  SDKS).  BP1  (9),  BL1  (9),  BH1  (9),  BE1  (9),  BLI  ( 10) 

FORMAT ('WHAT  IS  THE  INPUT  TORQUE  OF  THE  RIGHT  PINION') 

FORMAT < 'WHAT  IS  THE  INPUT  TORQUE  OF  THE  LEFT  PINION') 

FORMAT ( 'WHAT  IS  THE  INPUT  SPEED  OF  THE  TRANSMISSION') 

WRITE(1. 101) 

READ(1,  * ) TIR 
WRITEd.  102) 

READd,  * ) TIL 
WRITEd,  103) 

READd,  »)SI 

INPUT  SPIRAL  BEVEL  GEAR  GEOMETRY 

CALL  DPBVIN(NP,  NG.  AO,  PHE,  F,  PHSI.  ROT,  SPR,  THETA,  E,  El  (1 ) ,  PG, 

1PHE1,  PHSI 1 ,  THETA 1 ,  CASEP, PTL, AP, BP,  ITYPEP1, NBP1, DPI, ACPI, AK1 , 
2BDCAP1,  RFP 1 ,  El  (2),  ITYPEP2,  NBP2,  DP2,  ACP2,  AK2,  BDCAP2,  RFP2,  El  (3), 
3CASEG. GTL, AG, BG,  ITYPEG1 , NBG 1 , DG1, ACG1, AK3, BDCAG1,  RFG1,  El ( 9) , 
4ITYPEC2,  NBC2,  DG2,  ACG2,  AK4,  BDCAG2,  RFG2,  El  (6  > ,  MG,  GAMMA  1 ,  GAMMA,  ZZ. 
5ZZ1.  DP.  DC,  RPD,  RP,  RGD,  RG,  HK,  AOG,  AOP,  HT,  BOG,  BOP,  PD, 

6ADJP1, ADJP2, ADJG1, ADJG2, ZIP) 

E1(4)*E1(1> 

El  (7)=*E1  ( 1  ) 

El <8)=E1 (2) 

El (9)=E1 (3) 

PI ( 1 )*PG 
P1<4)*PG 
PI (7)=PG 

CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  TRANSMISSION 

TOS-T I R*MG+T I L*MQ 
SOS-SI/MG 

READ  IN  VALUES  OF  PLANETARY  UNIT 

CALL  PLANIN(CB,  A,  V.  EB,  PB,  N,  NCOMP,  PDS,  PDR,  NS,  PHIS,  PHIS1, 

1PHIR,  PHIR1,  WDSM,  ES,  PS,  B1SM,  ISTEP,  NPS,  NPR,  NR,  WDRM,  ER,  PR,  B1RM, 


2RPR, RPS, RR, RS) 

API ( 1 )*PB 
API (2) “PS 
API <3)*PR 
API <4>*PS 
API <  5)=PR 
C 

C  CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  PLANETARY  UNIT 

C 

TOPA-TOS* ( 1 .  +<RR*RPS  > / ( RS*RPR ) ) 

SOPA=SOS/(l. +<RR*RPS)/<RS*RPR> ) 

C 

C  READ  IN  VALUES  OF  PLANETARY  UNIT 

C 

CALL  PLANIN(BCB,  BA.  BV.  BEB.  BPB.  BN,  BNCOMP,  BPDS,  BPDR,  BNS,  BPHIS, 
1BPHIS1 , BPHIR, BPHIR1, BWDSM, BES, BPS, BB1SM, BISTEP,  BNPS, 

2BNPR,  BNR,  BWDRM,  BER,  BPR,  BB1RM,  BRPR,  BRPS,  BRR ,  BRS ) 

BP  1 ( 1 ) “BPB 


BP  1 ( 2 ) -BPS 
BP1 (3)»BPR 
BP  1  ( 4 )  -*P°S 
BP  1  (  5 )  - R 

CALCULATE  OUTPUT  TORQUE  AND  SPEED  OF  PLANETARY  UNIT 

TOF»TOPA* ( 1 .  +  < BRR*BRPS ) / ( BRS*BRPR ) ) 

SOF=SOPA/ ( 1 .  +  <  BRR*BRPS ) / ( BRS*BRPR ) ) 

MGPA*<  1.  +<BRR*BRPS)/<BRS*BRPR) ) 

MGS*  ( 1 .  •*■  ( RR*RPS )  /  <  RS*RPR  )  )  *MGPA 
MGPB*1.  0 

INC0NP=9+ISTEP+B ISTEP 
DO  3  I N* 1 , 9 
ZNCOMP ( IN ) *1 .  0 
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2A0,  GAMMA  1 .  ROT,  SPR,  PHE1,  PHSI1,  ZZ1,  ZIP, 

3PTL,  AP,  BP,  RP,  GTL,  AG,  BG,  RG, 

4ITYPEP1,  RFP1,  NBP1,  DPI,  ACPI,  BDCAP1,  AK1,  Ei<2>,  ADJP1, 
5ITYPEP2,  RFP2,  NBP2,  DP2,  ACP2,  BDCAP2,  AK2,  El  (3),  ADJP2, 
6ITYPEG1,  RFG1.  NBG1,  DG1,  ACG1,  BDCAG1.  AK3,  El<5),  ADJG1, 
7ITYPEG2,  RFG2,  NBG2,  DG2,  ACG2,  BDCAG2,  AK4,  El  (6),  ADJG2, 

8F,  E,  PG,  El  ( 1  > ,  RPD,  RGD, 

9PXPR,  PYPR,  PZPR, TOTFORR, PXGR, PYGR, PZGR, TOTFORGE, 

9PXPL,  PYPL,  PZPL,  TOTFORL.  PXGL,  PYGL,  PZGL,  TOTFORGE, 
1R1XPR. R1YPR, R1ZPR. R2XPR, R2YPR, R2ZPR, 

1R1XPL,  R1YPL,  R1ZPL,  R2XPL,  R2YPL,  R2ZPL, 

2R1XG,  R1YG,  R1ZG,  R2XG,  R2YG,  R2ZG, 

3L1 (2),  Ml (2) ,  TOFORP1R, PI (2), BDCAP1QR, Dl(2), 

4L1(3), HI (3), T0F0RP2R,  PI (3),  BDCAP20R,  Dl<3>, 

9L1(9>,  HI  (  3 ) ,  TOFORGl,  PI  (9),  B  DC  AG  10,  Dl(3), 

6L1  (6).  HI  (6),  T0F0RG2.  PI  (6),  BDCAG20,  Dl<6), 

7L1  <  1 ) ,  HI  ( 1 ) ,  DCAPR,  D1<1), 

8L  1(4),  HI  (4).  DCAG,  D1  (4)  > 

*L1  (7) ,  HI  (7),  DCAPL,  Dl(7), 

*L1  (8) ,  HI (8).  T0F0RP1L.  PI (8) ,  BDCAP10L. D1 (8) , 

*L1(9), HI (9). T0F0RP2L, PI (9) , BDCAP10L, Dl(9), 

9LSB. HSB, ESB) 

PRINT  OUT  LIVES  AND  DYNAMIC  CAPACITIES  OF  COMPONENTS 


CALL  DPBVOT ( PD,  PHE,  PHSI,  SPR,  F,  AO,  SI,  SOF,  ROT,  TIR,  TIL,  TOF, 

1  THETA, NP. GAMMA,  DP,  RPD, AOP,  BOP, 

2PXPR, PYPR, PZPR, TOTFORR, DCAPR, CASEP,  AP,  BP, 

3R1XPR, R1YPR, R1ZPR, TQF0RP1R,  BDCAP10R, 

4R2XPR, R2YPR, R2ZPR, T0F0RP2R,  BDCAP20R, 

2PXPL, PYPL, PZPL, TOTFORL, DCAPL, CASEP, AP,  BP, 

3R1XPL. R1YPL, R1ZPL, T0F0RP1L,  BDCAP10L, 

4R2XPL, R2YPL, R2ZPL,  T0F0RP2L,  BDCAP20L, 

3NG,  ZZ,  DG,  RGD,  AOG,  BOG, 

APXOR, PYGR, PZGR, TOTFORGE, DCAG,  CASEC,  AG,  BG, 

6PXGL, PYGL, PZGL, TOTFORGE, DCAG,  CASEG,  AG,  BG, 

7R1X0,  R1YG,  R1ZG,  TOFORGl,  BDCAG10, 

8R2X0, R2YG,  R2ZG,  T0F0RG2,  BDCAG20, 

9D1 ,  PI,  LI,  HI,  El ) 

CALCULATE  LIFE  AND  DYNAMIC  CAPACITY  OF  PLANETARY  UNIT  COMPONENTS 

CALCULATE  LIFE  OF  PLANETARY  UNIT 

CALL  PLANCA ( ISTEP, NCOMP, MGPA, NS, NPS, NPR , NR, PHIS1,  PHIR1, 


»r,ir.*r.v 


IRS,  RPS,  RPR,  RR,  CB,  A,  V,  PB,  N,  EB,  FTT, 

2B1SM,  PS,  ES,  WDSM,  B1RM,  PR,  ER,  WDRM, 

3T0S,  TOP,  SOS,  SOF,  CS,  LS,  FS,  CR,  LR,  FR,  ADI,  AL1,  AH1,  AE1, 

4LPLAN, HPLAN, EPLAN) 

PRINT  OUT  RESULTS  FOR  THE  PLANETARY  UNIT 

CALL  PLANOT ( ISTEP,  N,  V,  CB,  FB,  NS,  PDS,  PHIS,  WDSM,  B1SM,  FS. 

1NR,  PDR,  PHIR,  WDRM,  B1RM,  FR,  NP,  NPS,  NPR,  TOS,  TOF,  SOS,  SOF,  FTT, 

2AD1,  API,  AL1,  AH  1 ,  AE 1 ) 

CALCULATE  LIFE  AND  DYNAMIC  CAPACITY  OF  PLANETARY  UNIT  COMPONENTS 
CALCULATE  LIFE  OF  PLANETARY  UNIT 

CALL  PLANCA< B I STEP, BNCOMP, MGPB,  BNS,  BNPS,  BNPR, BNR, 

1BPHIS1,  BPHIR1,  BRS,  BRPS, BRPR,  BRR,  BCB,  BA,  BV,  BPB, BN, BEB, 

2BFTT.  BB1SM.  BPS,  BES,  BWDSM,  BB1RM,  BPR,  BER,  BWDRM, 

3T0PA,  TOF,  SOPA,  SOF,  BCS,  BLS,  BFS,  BCR,  BLR.  BFR,  BD1,  BL1.  BH1,  BE1, 
4BLPLAN,  BHPLAN,  BEPLAN) 

PRINT  OUT  RESULTS  FOR  THE  PLANETARY  UNIT 

CALL  PLANOT (BISTEP, BN, BV, BCB, BFB,  BNS,  BPDS,  BPHIS,  BWDSM, 

1BB1SM. BFS, BNR, BPDR, BPHIR, BWDRM, BB1RM,  BFR,  BNP,  BNPS,  BNPR, 

2T0PA,  TOF.  SOPA,  SOF,  BFTT ,  BD1,  BP1,  BL1,  BH1 ,  BE1  ) 

DEFINE  TRANSMISSION  LIFE  ARRAYS 

DO  8  IE-1. 9 

ZE1 ( IE ) =E1 ( IE) 

ZL1 ( I E ) =L 1 ( IE) 

DO  9  IE-1, ISTEP 

ZE1 ( IE+9 ) -AE1 ( IE) 

ZL1 ( IE+9 ) -ALl ( IE ) 

DO  99  IE-1,  BISTEP 

ZE1 ( IE+9+ISTEP )=BE1 ( IE) 

ZL1 < IE+9+ I STEP ) =BL 1 < IE) 

CALL  LIFE( ZL1,  INCOMP,  ZE1, ZNCOMP,  LTRANS,  ETRANS) 

HTR ANS-LTR ANS* 1 b666.  667/SOF 

START  COUNTER  FOR  LOADS  BETWEEEN  15  AND  150  PERCENT  OF  DYNAMIC 
CAPACITY 

DMIN-D1 ( 1 ) 

DO  21  1-2,  9 

IF ( D1 < I ) . LT  DMIN)DMIN-Dl ( I ) 


vvvy. v 


DELTATO*.  1*DMIN 

DELTATI*0.  5*DELTAT0/MQ/MGS 

DTIR-O.  0 

DTIL-O.  0 

DTO-O.  0 

START  COUNTER  FOR  DYNAMIC  CAPACITIES  BETWEEN  10  AND  100  PERCENT 
OF  TRANSMISSION  DYNAMIC  CAPACITY 


DO  22  1=1,  10 

DTIR=DTIR+DELTATI 
DT I L=DT I L+DEL T AT I 
DTO=DTO+DELTATO 
DYN ( I ) =DTO 

CALCULATE  LIFE  FOR  EACH  DYNAMIC  CAPACITY 
CALL  DPBVCA( 

1DTIR,  DTIL,  DTO.  SI,  SOF,  MO,  MGS,  NP,  NG, 

2 AO,  GAMMA1,  ROT,  SPR,  PHE1,  PHSI1.  ZZ1,  ZIP, 

3PTL,  AP.  BP,  RP,  GTL,  AG,  BG,  RG, 

4ITYPEP1,  RFP1,  NBP 1 .  DPI,  ACPI,  BDCAP1,  AK1 ,  El<2),  ADJP1, 
SITYPEP2,  RFP2,  NBP2,  DP2,  ACP2,  BDCAP2,  AK2.  El  (3).  ADJP2. 
6ITYPEG1,  RFG1 ,  NBG1,  DG1,  ACG1,  BDCAG1,  AK3,  El  (5),  ADJG1, 
7ITYPEG2,  RFG2,  NBG2,  DG2,  ACG2,  BDCAG2,  AK4,  El  (6),  ADJG2, 
8F,  E,  PG,  El  ( 1 ) ,  RPD,  RGD. 

9PXPR, PYPR, PZPR, TOTFORR, PXGR,  PYGR,  PZGR,  TQTFORGE, 
9PXPL,  PYPL,  PZPL,  TOTFORL,  PXGL,  PYGL,  PZGL,  TOTFORGE, 
1R1XPR, R1YPR, R1ZPR, R2XPR,  R2YPR,  R2ZPR, 

1R1XPL, R1YPL, R1ZPL, R2XPL, R2YPL,  R2ZPL, 

2R1XG,  R1YG,  R1ZG,  R2XG,  R2YG,  R2ZG, 

3L1 (2),  HI (2),  T0F0RP1R,  PI (2), BDCAP10R, D1 (2), 

4L1 (3), HI (3),  T0F0RP2R,  PI (3),  BDCAP20R,  D1 (3), 

5L1  (5),  HI  (5),  T0F0RG1,  PI  <5),  BDCAG10,  D1  (5), 

6L1  (6),  HI  (6),  T0F0RG2,  PI  <6>,  BDCAG20,  D1  (6), 

7L1 ( 1 ) ,  HI ( 1 ) ,  DC APR. D1 < 1 ) , 

8L1(4). HI (4), DC AG, Dl(4), 

*Ll<7>,  HI (7),  DCAPL,  Dl<7), 

*L1  (8),  HI  (8),  T0F0RP1L,  PI  (8),  BDCAP10L,  D1  (8), 

*L1 (9), HI (9),  T0F0RP2L,  Pi <9) ,  BDCAP10L,  Dl(9), 

9L 1(1), DUMB,  DUMB) 

CONTINUE 

CALL  CAP  (DYN,  LI.  10- DSB,  PSP  ) 


I  1*1 


START  COUNTER  FOR  LOADS  BETWEEEN  15  AND  150  PERCENT  OF  DYNAMIC 
CAPACITY 

ADMIN* ADI ( 1 ) 

DO  23  1-2,  I STEP 

IF (ADI < I ) .  LT.  ADMIN) ADMIN=AD1 ( I ) 

DELTATO-  1* ADM IN 
DELTATOS-DELTATO/MGS 
DT0=0. 0 
DTOS-O.  0 

DO  24  1  =  1, 10 

DTOS-DTOS+DELTATOS 
DTO-DTO+DELTATO 
DYN( I ) =DTO 

CALL  PLANCA( ISTEP, NCOMP, MGPA, NS, NPS, NPR,  NR,  PHISl,  PHIR1, 

IRS,  RPS,  RPR,  RR,  CB,  A,  V,  PB,  N,  EB,  FTT, 

2B1SM,  PS.  ES,  WDSM,  B1RM,  PR,  ER,  WDRM, 

3DT0S,  DTO.  SOS,  SOF,  CS,  LS,  FS,  CR,  LR,  FR,  AD  1 ,  AL 1 »  AH  1 ,  AE 1 ,  AL I  Cl),  DUMB, 
4DUMB ) 

CONTINUE 

CALL  CAPCDYN, ALI,  10, DPLAN, PPLAN > 


START  COUNTER  FOR  LOADS  BETWEEEN  15  AND  150  PERCENT  OF  DYNAMIC 
CAPACITY 

BDMIN=BD1 ( 1 ) 

DO  30  1=2. BISTEP 

IFCBDl ( I )  LT.  BDMIN ) BDMIN=BD1 ( I ) 

DELTATO*. 1*BDMIN 
DELTATOS=DELTATO/MGPA 
DTO-O.  0 
DT0S=0.  0 

DO  31  1=1, 10 

DTOS=DTOS+DELTATOS 
DTO=DTO+DELTATO 
DYNC I )=DTO 

CALL  PLANCAC BISTEP, BNCOMP, MGPB, BNS, BNPS, BNPR, BNR, BPHIS1, 

1BPHIR1, BRS, BRPS, BRPR, BRR,  BCB, BA,  BV.  BPB,  BN,  BEB,  BFTT, 

2BB1SM,  BPS,  BES,  BWDSM,  BB1RM,  BPR,  BER,  BWDRM, 

3DT0S,  DTO,  SOP  A,  SOF,  BCS,  BLS,  BFS,  BCR,  BLR,  BFR, 

4BD1 ,  BL1 ,  BH1 ,  BE1,  BLICI). DUMB, DUMB) 

CONTINUE 


non  noon 


CALL  CAP(DYN»  BLI,  10, BDPLAN,  BPPLAN ) 


START  COUNTER  FOR  LOADS  BETWEEEN  13  AND  130  PERCENT  OF  DYNAMIC 
CAPACITY 

IF (ADMIN.  LT.  DMIN)DMIN=ADMIN 
IF ( BDMIN. LT. DMIN)DMIN=BDMIN 
DELTATO*.  1#DMIN 
DELTATOP=DELTATO/MGPA 
DELT  ATQS=DELT  ATO / MGS 
DELTATIR*  5*DELTAT0S/MG 
DELTATIL*.  5*DELTAT0S/MG 
DTIR=0.  0 
DTIL=0.  0 
DT0S=0.  0 
DT0PA=0.  0 
DT0=0.  O 
DO  20  1=1, 10 

DTIR=DTIR+DELTATIR 

DTIL=DTIL+DELTATIL 

DTOS=DTOS+DELTATOS 

DTOPA=DTOPA-*-DELTATOP 

DT0=DTQ+DELTAT0 

DYN ( I ) =DTO 

CALCULATE  LIFE  FOR  EACH  DYNAMIC  CAPACITY 
CALL  DPBVCA ( 

1DTIR,  DTIL,  DTO,  SI.  SOF,  MG.  MGS,  NP,  NG, 

2A0,  GAMMA  1 ,  ROT,  SPR,  PHE1,  PHSI1,  ZZ1,  ZIP, 

3PTL.  AP,  BP,  RP,  GTL,  AG.  BG,  RG, 

4ITYPEP  1 ,  RFP 1 ,  NBP 1 ,  DPI,  ACPI,  BDCAP1,  AK1,  El  (2),  ADJP1, 

5ITYPEP2,  RFP2,  NBP2,  DP2,  ACP2,  BDCAP2,  AK2,  El  (3),  ADJP2, 

6ITYPEG1 ,  RFG1 ,  NBG1,  DG1 , ACG1, BDCAG1, AK3, El  (5). ADJG1, 

7ITYPEG2,  RFG2,  NBG2,  DG2,  ACG2,  BDCAG2,  AK4,  El  (6).  ADJG2, 

8F,  E,  PG,  El  (  1  ) ,  RPD,  RGD, 

9PXPR, PYPR, PZPR,  TOTFORR, PXGR. PYGR, PZGR, TOTFORGE, 

9PXPL. PYPL, PZPL. TOTFORL, PXGL, PYGL, PZGL, TOTFORGE, 

1R1XPR, R1YPR, R1ZPR, R2XPR, R2YPR, R2ZPR, 

1R1XPL, R1YPL, R1ZPL, R2XPL, R2YPL, R2ZPL, 

2R1XG,  R 1 YG,  R1ZG,  R2XG,  R2YG,  R2ZG, 

3L1 (2) ,  HI (2) ,  T0F0RP1R,  PI (2), BDCAP10R, D1 (2) , 

4L1 (3),  HI (3),  T0F0RP2R. PI (3), BDCAP20R, D1 (3), 

5L1 (3), HI (3) ,  TOFORG1,  PI ( 5) .  8DCAG10, D1 (5) . 

6L1  <6>,  HI  <6>,  T0F0RG2,  PI  (6).  BDCAG20,  D1  (6), 
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7L1  ( 1 ) ,  HI  <  1 ) »  DC  APR*  Did). 

8L1  (4).  HI  (4>.  DCAO*  D1  (4)< 

*L1<7>.  HI  (7),  DCAPL.  Dl<7), 

*L1(8)*  HI (8),  T0F0RP1L* PI (8) * BDCAP10L*  Dl(8), 
*L1 (9),  HI <9>, T0F0RP2L* PI <9) , BDCAP10L.  D1 (9), 
9L I < I ) *  DUMB  *  DUMB  > 


CALL  PLANCAl ISTEP, NCOMP, MOPA, NS*  NPS*  NPR. NR. PHIS1. PH1R1, 
IRS.  RPS,  RPR,  RR*  CB*  A,  V,  PB*  N*  EB*  FTT* 

2B1SM*  PS,  ES,  WDSM,  B1RM,  PR,  ER.  WDRM, 

3DT0S* DTO* SOS,  SOF, CS, LS.  FS, CR. LR, FR*  ADI*  AL1, AH1, AE1, ALI ( I > 
4DUMB, DUMB) 

CALL  PLANCA< BISTEP,  BNCOMP, MOPB,  BNS* BNPS.  BNPR*  BNR,  BPHIS1, 
1BPHIR1 ,  BRS.  BRPS*  BRPR,  BRR,  BCB*  BA.  BV,  BPB,  BN.  BEB.  BFTT, 
2BB1SM.  BPS.  BES,  BWDSM,  BB1RM*  BPR*  BER*  BWDRM. 

3DT0PA*  DTO.  SOPA.  SOF.  BCS.  BLS.  BFS.  BCR,  BLR.  BFR,  BD1.  BL1, 

4BH1,  BE1,  BLI(I),  DUMB, DUMB) 

DO  12  IE=1,9 

ZL1 ( IE)=L1 (IE) 

DO  13  IE*1, ISTEP 

ZL1 ( IE+9 ) =AL1 ( IE ) 

DO  14  IE=*1,  BISTEP 

ZL 1 ( I E+9+ I STEP ) =BL 1 ( I E ) 

CALL  LIFE ( ZL1 <  INCOMP,  ZE1, ZNCOMP.  ZLI < I ),  DUMB) 

CONTINUE 

CALL  CAP (DYN, ZLI, 10, DTRANS, P TRANS) 

FORMAT ( '  TOTAL  TRANSMISSION'/) 

FORMAT ( '  SPIRAL  BEVEL  UNIT'/) 

FORMAT ('  PLANETARY  UNIT'/) 

WRITE(1, 1221) 

CALL  DPLHE ( DSB , PSP , LSB . HSB , ESB ) 

WRITE ( 1 , 1222) 

CALL  DPLHE (DPLAN, PPLAN, LPLAN, HPLAN, EPLAN) 

WRITEd,  1222) 

CALL  DPLHE (BDPLAN, BPPLAN,  BLPLAN,  BHPLAN,  BEPLAN) 

WRITEd,  1220) 

CALL  DPLHE (DTRANS,  P TRANS. LTRANS,  HTRANS.  ETRANS) 

STOP 

END 

SUBROUTINE  DPBVCA( 

1 TIR,  TIL,  TOF,  SI,  SOF,  MO,  M01,  NP,  NO, 

2A0,  0AMMA1,  ROT,  SPR,  PHE1,  PHSI1.  ZZ1,  ZIP, 

3PTL,  AP,  BP,  RP,  OTL, AO, BO, RO, 

4ITYPEP1,  RFP1,  NBP1,  DPI,  ACPI,  BDCAP1,  AK1,  E0P1.  ADJP1. 


tvmmm 


non 


5ITYPEP2,  RFP2,  NBP2,  DP2,  ACP2.  BDCAP2,  AK2,  EGP2,  ADJP2. 

6ITYPEG1,  RFG1,  NBG1.  001.  AC01.  BDCA01 .  AK3.  E001.  ADJ01. 

7ITYPE02.  RF02.  NB02.  002.  AC02.  B0CA02.  AK4.  E002.  ADJC2. 

SF,  E.  PO,  EO,  RPD.  ROD. 

9PXPR, PYPR, PZPR, TOTFORR, PXOR. PYQR, PZOR.  TOTFORGE, 

9PXPL.  PYPL.  PZPL.  TOTFORL.  PXOL.  PYGL.  PZOL.  TOTFORGE. 

1R1XPR, R1YPR. R1ZPR. R2XPR,  R2YPR.  R2ZPR. 

1R1XPL,  R1YPL.  R 1 ZPL.  R2XPL.  R2YPL.  R2ZPL. 

2R1X0.  R1YG.  R1Z0.  R2X0.  R2Y0.  R2Z0. 

3L10P1R,  H10P1R,  T0F0RP1R.  P0P1.  BDCAP10R. BDCAP1TR. 

4L10P2R, H10P2R, T0F0RP2R.  POP2.  B0CAP2OR.  BDCAP2TR. 

5L10G1,  H10G1 > T0F0R01.  P001.  BDCA010. B0CAG10T. 

6L10G2, HI 002. T0F0RG2. P0G2. BDCA020.  BDCAG20T. 

7LP10R, HP 1 OR .  DC APR.  DCAPTR, 

8L010.  HO  10.  DC  AC.  DCAOT . 

7LP10L.  HP10L.  DCAPL.  DCAPTL. 

3L10P1L,  H10P1L.  T0F0RP1L.  P0P1.  BDCAP10L.  BDCAP1TL, 

4L10P2L. H10P2L. T0F0RP2L. POP2.  BDCAP20L.  BDCAP2TL, 

9LSB. HSB, ESB ) 

INTEGER  PTL. CTL 

REAL  LSB . LL  <  9 ) .  EE  <  9 ) ,  NCOMP ( 9  > 

REAL  L10P1R, L10P2R.  L10P1L, L10P2L.  L10G1, L10G2.  LP10R.  LP10L.  L010 
REAL  MG, MG1 , NP. NG, NBP1,  NBP2.  NBG1 ,  NB02 
DATA  NCOMP  / 1 .  ,  1.  ,  1.  ,  1.  ,  1.  .  1.  .  1.  ,  1.  ,  1.  / 


CALCULATION  OF  THE  LOADS  TRANSMITTED  FROM  THE  LEFT  PINION 


CALL  GPSPR (TIR,  AO. F,  GAMMA1, ROT, SPR,  PHE1,  PHSI1,  PXPR,  PYPR,  PZPR) 
T0TF0RR=SQRT(PXPR**2+PYPR**2«-PZPR**2> 


CALCULATION  OF  THE  LOADS  TRANSMITTED  FROM  THE  LEFT  PINION 


CALL  GPSPR (TIL, AO, F, GAMMA 1 ,  ROT,  SPR,  PHE1 ,  PHSI 1 ,  PXPL,  PYPL,  PZPL) 
TOTFORL-SQRT ( P  XPL**2+P YPL**2+P  ZPL**2 ) 

CALCULATION  OF  THE  LOADS  TRANSMITTED  TO  THE  GEAR  FROM  EACH  PINION 


TOUTR-MO*TIR 

TOUTL-MO*TIL 

R0T1—R0T 

SPR1-SPR 

CALL  GPSPR ( TOUTR,  AO,  F.  ZZ1, R0T1, SPR1, PHE1 , PHSI 1 ,  PXGR,  PYOR,  PZOR) 
CALL  GPSPR  ( TOUTL,  AO,  F,  ZZ1,  R0T1,  SPR1,  PHE1,  PHSI1,  PXGL,  PYGL,  PZOL) 


C 


CHECK  CASE  FOR  BEARING  POSITION  AND  CALCULATE  THE  LOADS 


ON  THE  BEARINGS  TRANSMITTED  FROM  THr  c-EFT  PINION 

C - 

IF( PTL.  EQ.  2) GO  TO  IS 
R1XPL=PXPL 
R2XPL-0.  0 
GO  TO  19 

18  R1XPL*0.  0 
R2XPL=PXPL 

19  CONTINUE 

CALL  BLC1 (PXPL, PYPL, PZPL, AP,  BP, RP, R1YPL, R1ZPL,  R2YPL,  R2ZPL) 

C - 

C  CHECK  CASE  FOR  BEARING  POSITION  AND  CALCULATE  THE  LOADS 

C  ON  THE  BEARINGS  TRANSMITTED  FROM  THE  RIGHT  PINION 

C - 

IF  (PTL.  EG.  2)  GO  TO  20 
R1XPR=PXPR 
R2XPR*0.  0 
GO  TO  21 

20  R1XPR=0.  0 
R2XPR»PXPR 

21  CONTINUE 

CALL  BLCKPXPR,  PYPR,  PZPR,  AP.  BP,  RP,  R1YPR,  R1ZPR,  R2YPR,  R2ZPR ) 

c - 

C  CHECK  CASE  FOR  BEARING  POSITION  CALCULATE  THE  LOADS 

C  ON  THE  BEARINGS  TRANSMITTED  FROM  THE  GEAR  DUE  TO  THE  RIGHT  PINION 

C - 


IF (GTL.  EQ.  2 ) GO  TO  22 
R1XGR=PXGR 
R2XGR=0.  0 
GO  TO  23 

22  R 1  XGR=0.  0 
R2XGR*PXGR 

23  CONTINUE 

CALL  BLC1 (PXGR, PYGR, PZGR, AG, BG,  RG, 

C - 

C 
C 

c — 


R 1 YGR , R 1 ZGR , R2YGR , R2ZGR  > 


CHECK  CASE  FOR  BEARING  POSITION  CALCULATE  THE  LOADS 

ON  THE  BEARINGS  TRANSMITTED  FROM  THE  GEAR  DUE  TO  THE  PINION 


24 

25 


IF  (GTL.  EQ.  2)  GO  TO  24 

R1XGL-PXGL 

R2XGL=0.  0 

GO  TO  25 

R1XGL=0.  0 

R2XGL=PXGL 

CONTINUE 


vv 


CALL  BLC 1  ( PXGL,  PYGL,  PZGL,  AG.  BG,  RG.  R1YGL.  R1ZGL.  R2YGL.  R2ZGL) 


SUM  OF  THE  TWO  RADIAL  AND  TWO  TANGENTIAL  FORCES  INTO  TWO  COMPONENTS 
IN  THE  RADIAL  DIRECTION 


AZ  IP= ( ZIP-90.  )*PI 1/180. 

R 1 YG=R 1 YGR-R 1 YGL*SIN  < AZ IP ) -R 1 ZGL*COS  <  AZ IP ) 
R 1 ZG»R 1 ZGR+R 1 YGL*COS ( AZ IP ) -R 1 ZGL*S IN ( AZ I P ) 
R2YG=R2YGR-R2YGL*S IN ( AZ I P ) -R2ZGL*C0S ( AZ I P ) 
R2ZG3*R2ZGR+R2YGL*C0S  ( AZ  I P  )  -R2ZGL*S  IN  ( AZ  IP  ) 
R 1 XG=R 1 XGR+R 1 XGL 
R2XG=R2XGR+R2XGL 


CALCULATE  THE  LIFE  OF  RIGHT  PINION  BEARING  #1 


T0FR=TIR*MG*MG1*2.  0 

CALL  BDCAP ( ITYPEP1. R1XPR. R1YPR, R1ZPR, RFP1. NBP1. DPI, ACPI,  SOF, ADJP1 
*, BDCAP 1, L10P1R, H10P1R, MG, MG 1 , AK 1 , T0F0RP1R. PGP  1 , BDCAP 10R ) 

BDCAP 1TR=BDCAP 10R*T0FR /TOFORP 1R 

LL(2)*L10P1R 

EE ( 2 ) =EGP 1 


CALCULATE  THE  LIFE  OF  RIGHT  PINION  BEARING  #2 


CALL  BDCAP  < ITYPEP2, R2XPR, R2YPR, R2ZPR, RFP2, NBP2. DP2, ACP2,  SOF,  ADJP2 
*, BDCAP2, L10P2R, H10P2R. MG, MG1, AK2, T0F0RP2R, PGP2, BDCAP20R) 
BDCAP2TR=BDCAP20R*T0FR/T0F0RP2R 
LL ( 3 ) =L10P2R 
EE  ( 3 )  =»EGP2 


CALCULATE  THE  LIFE  OF  LEFT  PINION  BEARING  #1 


TOFL=T I L*MG*MG 1 *2.  0 

CALL  BDCAP  (  ITYPEP1,  R1XPL,  R1YPL,  R1ZPL,  RFP1,  NBP1,  DPI,  ACPI,  SOF,  ADJP1 
*,  BDCAP 1 ,  L10P1L,  H10P1L,  MG,  MG1, AK1, T0F0RP1L, PGP1, BDCAP10L) 

BDCAP 1 TL-BDCAP 10L* TOFL / TOFOR  P 1 L 

LL(8)=L10P1L 

EE  C  8 ) =EGP 1 


CALCULATE  THE  LIFE  OF  LEFT  PINION  BEARING  #2 


CALL  BDCAP  (  ITYPEP2,  R2XPL,  R2YPL,  R2ZPL,  RFP2,  NBP2,  DP2,  ACP2,  SOF,  ADJP2 
*, BDCAP2, L10P2L, H10P2L, MG, MG1 , AK2, T0F0RP2L,  PGP2,  BDCAP20L ) 
BDCAP2TL=»BDCAP20L*T0FL/T0F0RP2L 
LL ( 9 ) =L10P2L 


c 

c 

c 


CALCULATE  THE  LIFE  OF  GEAR  BEARING  #1 


CALL  BDCAP ( ITYPEG1 » R1XG, R1YG, R1ZG, RFG1 . NBG1. DG1 . ACG1. SOF,  ADJG1 
*,  BDCAG1  >  L 1 OG 1  -  H10G1,  1.  -  MG1,  AK3.  TOFORG1,  PGG1,  BDCAGIO) 
BDCAG10T=BDCAG10*T0F/T0F0RG1 
LL(5)*L10G1 
EE<  3)*EGG1 

- - 

C  CALCULATE  THE  LIFE  OF  GEAR  BEARING  #2 

- - 

CALL  BDCAP ( ITYPEG2, R2XG, R2YG, R2ZG, RFG2, NBG2. DG2, ACG2, SOF, ADJG2 
*,  BDCAG2,  L10G2,  H10G2,  1.  .  MG1,  AK4,  T0F0RG2,  PGG2.  BDCAG20) 

BDC AG20T *BDC AG20*T0F/T0F0RG2 

LL(6>*L10G2 

EE (6) -EGG2 

- - 

C  CALCULATE  THE  LIFE  OF  THE  GEAR 

- - 

- - 

CALL  SET1  ( PHE1 ,  F,  E,  MG,  MG  1 ,  NP >  NG,  SOF,  LPIOR,  HPIOR.  LPIOL,  HPlOL, 
*LG10. HG10, PG, EG, TOTFORR, TOTFORL, RPD, RGD,  DC APR,  DCAPL,  DC AG, 
♦TOTFORGE) 

DCAPTR=DCAPR*TOFR /TOTFORR 
DC APTL=DCAPL*TOFL/ TOTFORL 
DC AGT=DCAG*TOF/ TOTFORGE 
LL ( 1 ) =LP 10R 
LL ( 7 ) =LP 10L 
LL ( 4 ) =LG10 
EE( 1 ) =EG 
EE ( 4 ) =EG 
EE (7) =EG 

- - 

C  CALCULATE  THE  LIFE  OF  THE  TRANSMISSION 

- - 

CALL  LIFE(LL, 9, EE, NCOMP, LSB,  ESB > 

HSB*LSB* 16666.  667/SOF 

RETURN 

END 

FUNCTION  BASCAP  (Rl,  R2,  PHI.  WD,  K1  ) 

- - 

C  FUNCTION  SUBROUTINE  BASCAP  CALCULATES  THE  BASIC  DYNAMIC  CAPACITY  OF 
C  A  GEAR  TOOTH 

n _ _ _ _ _ _ _ _ — - - - — - — - - 


REAL  Kl.  Rl.  R2,  WD,  PHI- BASCAP 
C 

C  INPUTS 
C 

C  Kl  MATERIAL  CONSTANT  OF  THE  MESH  (PSD 

C  Rl  PITCH  RADTUS  OF  THE  DRIVING  GEAR  (IN) 

C  R2  PITCH  RADIUS  OF  THE  DRIVEN  GEAR  (IN) 

C  WD  FACE  WIDTH  OF  THE  GEAR  MESH  (IN) 

C  PHI  PRESSURE  ANGLE  OF  THE  GEAR  MESH  (RADIANS) 

C 

C  OUTPUT 
C 

C  BASCAP  BASIC  DYNAMIC  CAPACITY  OF  ONE  TOOTH  IN  THE  MESH  (LB) 

C 

BASCAP=K1*WD*SIN(PHI )/( 1.  O/Rl  +  1.  0/R2) 

RETURN 

END 

SUBROUTINE  BDCAP ( ITYPE. RX, RY, RZ, V. BALLS, DIA, ANGLE, SPEED2,  LAF, 
*BDC,  LF,  HF,  MG,  MG  1 ,  AK,  FE,  A,  8DCOUT) 

C 

REAL  LF,  LIO,  MG,  MG1,  L101- LF1,  LAF 


C 

C  INPUT 
C 

C  ITYPE  -TYPE  OF  BEARING 

C  1  SINGLE  ROW  BALL  BEARING 

C  2  DOUBLE  ROW  BALL  BEARING 

C  3  SINGLE  ROW  ROLLER  BEARING 

C  4  DOUBLE  ROW  ROLLER  BEARING 

C  5  SINGLE  ROW  BALL  BEARING  +  SINGLE  ROW  ROLLER  BEARING 

C  6  SINGLE  ROW  TAPER  ROLLER  BEARING 

C  7  DOUBLE  ROW  TAPER  ROLLER  BEARING 

C  RX  -AXIAL  LOAD  ON  THE  BEARING 

C  RY  -RADIAL  LOAD  ON  THE  BEARING 

C  RZ  -TANGENTIAL  LOAD  ON  THE  BEARING 

C  V  -ROTATION  FACTOR 

C  BALLS  -NUMBER  OF  BALLS  OR  ROLLERS 
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C  DIA  -DIAMETER  OF  BALLS  OR  ROLLERS 

C  ANGLE  -CONTACT  ANGLE 

C  (ONLY  FOR  BALL  BEARINGS) 

C  SPEED2-0UTPUT  SPEED  OF  GEAR  SHAFT  (RPM) 

C  BDC  -BASIC  DYNAMIC  CAPACITY  OF  THE  BEARING 

C  AK  -RATIO  OF  RADIAL  LOAD  RATING  TO  THRUST  LOAD  RATING 

C  (ONLY  FOR  TAPERED  ROLLER  BEARINGS) 

C  MG  -SPEED  RATION  FROM  OUTPUT  SHFT  TO  COMPONENT 

C 

C  INPUT 
C 

C  LF  -LIFE  OF  THE  BEARING  (MILLIONS  OF  CYCLES) 

C  HF  -LIFE  OF  THE  BEARING  (HOURS) 

C  FE  -TOTAL  FORCE  ON  THE  BEARING 

C 

ARX*ABS(RX> 

A 1 0-SGRT ( R  Y**2+R 1**2 ) 

IF(  I  TYPE.  GT.  1  )G0T020 

10  CALL  XXYY1 (A10, ARX, V, BALLS, DIA, ANGLE, X. Y) 

A=*3.  0 
GOTOQO 

20  IF ( I TYPE.  GT.  2)G0T030 

CALL  XXYY2 ( A10, ARX, V, BALLS, DIA, ANGLE,  X,  Y) 

A-3.  0 
G0T080 

30  IF ( I TYPE.  GT.  4>G0T060 

X=  1 .  0 
Y=0.  0 
A=3.  3 
G0T080 

60  IF ( ITYPE.  GT.  5)G0T070 

CALL  TAPER1 (A10, ARX, AK, FE) 

A*3.  3 
G0T081 

70  CONTINUE 

CALL  TAPER2( A10,  ARX,  AK,  FE) 

A»3.  3 
G0T081 

80  CONTINUE 
FE=X*V*A10+Y*ARX 

81  CONTINUE 
L10»(BDC/FE)**A 
LF«LAF*L 1 0/ MG /MG 1 
HF-LF* 16666.  667/SPEED2 
VEG*1.  /A 
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90 


BDC0UT«(LAF*1.  /MG/MG1 ) **VEG*BDC 

RETURN 

END 

SUBROUTINE  BLC1  (PX,  PY,  PZ,  A,  B,  RP,  RiY,  R1Z,  R2Y,  R2Z ) 


THIS  SUBROUTINE  CALCULATES  THE  BEARING  REACTION  FOR  CASE  #1 


INPUTS 


DISTANCE  FROM  BEARING  TQ  GEAR  (IN) 
DISTANCE  FROM  GEAR  TO  BEARING  (IN) 
FORCE  AXIAL  ON  THE  GEAR  (LB) 

FORCE  RADIAL  ON  THE  GEAR  (LB) 

FORCE  TANGENTIAL  ON  THE  GEAR  (LB) 
PITCH  RADIUS  OF  THE  GEAR  (LB) 


OUTPUT 


RIY  REACTION  OF  BEARING  #1  IN  THE  Y-DIRECTION  (LB) 
R2Y  REACTION  OF  BEARING  #2  IN  THE  Y-DIRECTION  (LB) 
RIZ  REACTION  OF  BEARING  #1  IN  THE  Z-DIRECTION  (LB) 
R1Z  REACTION  OF  BEARING  #2  IN  THE  Z-DIRECTION  (LB) 


R 1 Y= ( -PY*B+PX*RP ) / ( A+B ) 
RlZ=-PZ*B/(A-*-B> 

R2Y=*  ( -P  Y*A-P  X*RP  )  /  ( A+B  ) 
R2Z*— PZ*A/(A+B ) 

RETURN 

END 


SUBROUTINE  GPSPR(TI,  AO,  F,  GAMMA,  ROT,  SPR,  PHE,  PHSI,  PXP,  PYP,  PZP) 


THIS  SUBROUTINE  CALCULATES  THE  LOADS  PRODUCED  BY  THE  PINION 


PHE 

PHSI 


-1  LEFT  HAND 

PRESSURE  ANGLE  (RADIANS) 

SPIRAL  ANGLE  (RADIANS) 


.* 

1 


V 

s." 


c 

C  OUTPUT 

C  - 

C  PXP  THRUST  LOAD  ON  GEAR 

C  PYP  RADIAL  LOAD  ON  GEAR 

C  PZP  TANGENTIAL  LOAD  ON  GEAR 

C - 

C  TANGENTIAL  TOOTH  LOAD 

C - 

PZP=*-TI/(  (AO-F/2.  0 ) *S I N ( GAMMA )  > 

C - 

C  CHECK  FOR  ROTATION  AND  HAND  OF  THE  PINION 

C - 

ROTSPR=ROT*SPR 
IF(ROTSPR.  LT.  1.  0)G0  TO  10 

C - 

C  THRUST  LOAD 

C - 

PXP^PZP* ( TAN (PHE ) *SIN  ( GAMMA) -SIN ( PHSI >*COS(GAMMA>  > 
*/COS(PHSI ) 

C - 

C  RADIAL  TOOTH  LOAD 

C - 

P YP-P  ZP* ( TAN ( PHE ) *COS ( GAMMA ) +SIN ( PHS I ) *SI N ( GAMMA ) ) 
*/CQS (PHSI ) 

GO  TO  20 
10  CONTINUE 

C - 

C  THRUST  LOAD 

C - 

PXP-P  ZP* ( TAN ( PHE ) *S IN ( GAMMA ) +S IN ( PHS I ) *COS ( GAMMA ) ) 
*/CQS ( PHSI > 

C - 

C  RADIAL  LOAD 

C - 

PYP *P  ZP* ( TAN ( PHE ) *COS ( GAMMA ) -S I N ( PHS I ) *S IN ( GAMMA ) ) 
*/COS ( PHSI ) 

20  RETURN 

END 

C 

C 
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SUBROUTINE  LEASQR  <N,  X.  V.  A.  B) 


LEASQR  FITS  DATA  PAIRS  WITH  A  LINEAR  EQUATION  OF  THE  FORM 
Y=A+BX+E 

WHERE,  X  IS  THE  INDEPENDENT  VARIABLE  AND 

Y  IS  THE  DEPENDENT  VARIABLE. 

E  IS  THE  RESIDUAL  (WHICH  IS  MINIMIZED) 
THE  ESTIMATED  EQUATION  IS  THEN  Y»A+BX. 


INTEGER  X.N 

REAL  A,  B,  DENOM,  NUMA.  NUMB,  SSX.  SXY,  SX,  SY,  X,  Y 
DIMENSION  X(N)»  Y(N> 


THE  VARIABLES  ARE: 

N — NUMBER  OF  DATA  PAIRS, (X,Y> (PASSED  TO  PROGRAM) 

X — INDEPENDENT  VARIABLE  OF  DATA  TO  BE  FITTED (PASSED  TO  PROGRAM) 
Y— DEPENDENT  VARIABLE  OF  DATA  TO  BE  FITTED (PASSED  TO  PROGRAM) 

A — Y  INTERCEPT  OF  FITTED  LINE(PASSED  FROM  PROGRAM) 

B — SLOPE  OF  THE  FITTED  LINE (PASSED  FROM  PROGRAM) 

I —DO  LOOP  COUNTER 

DENOM — INTERMEDIATE  CALCULATION 

NUMA — I NTERMEDATE  CALCULATION 

NUMB — INTERMEDATE  CALCULATION 

SSX — SUMMATION  OF  THE  SQUARES  OF  X 

SXY — SUMMATION  OF  THE  PRODUCT  OF  X  AND  Y 

SX— SUMMATION  OF  X 

SY — SUMMATION  OF  Y 

INITIALIZE  SUMMATIONS 

SSX=0. 0 
SX=0.  0 
SXY**0.  0 
SY=*0.  0 

CALCULATE  SUMS 


DO  10  I»1,N 
SX*SX+X ( I ) 
SY=SY+Y( I ) 
SXY»SXY+X< I >*Y< I ) 


A 


A 


ft 


K 


S 


m 


n 


IF! 


.V 


SSX»SSX+X( I )**2 
10  CONTINUE 
C 

C  CONVERT  N  TO  REAL  TYPE-  CALCULATE  SLOPE,  B  AND  INTERCEPT,  A 
C 

NUMA-S Y*SS  X -S X Y *S  X 

NUMB-FLOAT (N  > *SXY-SX*SY 

DENOM-FLOAT  <  N ) *SSX-SX**2 

A=NUMA / DENOM 

B-NUMB/DENOM 

RETURN 

END 

SUBROUTINE  LIFE(ALIFE, NN,  EW, NCOMP, LT10, ET) 

- - 

C 

C  LIFE  CALCULATES  THE  WEIBULL  EXPONENT  FOR  THE  SPIRAL  BEVEL 

C  TRANSMISSION  AND  THE  L10  LIFE  OF  THE  TRANSMISSION. 

C 

C - 

REAL  A,  E.  L,  N,  S,  EB,  EG.  ET,  DIFF.  DELTAL,  OLDIFF,  LT10,  NCOMP  (NN) 
INTEGER  I 

DIMENSION  L ( 25 ) , S ( 25 ) , ALIFE(NN) , EW(NN ) 

C 

C  INPUTS 


OUTPUT 


NCOMP ( I )  NUMBER  OF  EACH  COMPONENT 

EW(I)  WEIBULL  EXPONENT  OF  THE  COMPONENT 

ALIFE(I)  L10  LIFE  OF  CONPONENT 


ET  WEIBULL  EXPONENT  OF  THE  GEAR  TRANSMISSION 

LT10  L10  LIFE  OF  THE  TRANSMISSION  IN  INPUT 
REVOLUTIONS  (CYCLES) 


MISCELLANEOUS  VARIABLES: 

L ( I )  GENERATED  SET  OF  TRANSMISSION  LIVES  SUN  REVS 
S(I>  SET  OF  TRANSMISSION  RELIABILITIES  CORRESPONDING  TO 
THE  SET  OF  TRANSMISSION  LIVES 

A  INTERCEPT  OF  LINE  CALCULATED  BY  LEAST  SQUARE  ROUTINE 

I  DO  LOOP  COUNTER 

E  SMALLER  OF  THE  TWO  WEIBULL  EXPONENTS 

DIFF  DIFFERENCE  BETWEEN  ITERATED  PROBABILITY  OF  SURVIVAL 
AND  DESIRED  VALUE 

DELTAL  HALF  INTERVAL  LIFE  INCREMENT  SUN  REVS 

OLDIFF  PAST  VALUE  OF  DIFF,-  USED  WITH  DIFF  FOR  DETERMINING 


0 
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non  nnnnnn 


IF  ITERATION  HAS  PASSED  DESIRED  VALUE 


CALCULATE  THE  TRANSMISSION'S  L5  LIFE  USING  A  HALF  INTERVAL  METHOD 
DETERMINE  MINIMUM  LIO  LIFE  &  CALCULATE  SEED  VALUE  FOR  FINDING  L9  LIFE 

CALL  MINIMUM( ALIFEi NN/  ASLL ) 

L ( 1 )*ASLL/10. 

OLDIFF*l.  0 
DELTAL=L ( 1 ) 

ITERATION  FOLLOWS 

DO  10  1*1,  90 
SLIFE*0.  0 
DO  31  IN-1, NN 

SLIFE*SLIFE+NCOMP( IN)*(L( 1 )/ALIFE( IN) )**EW< IN) 

31  CONTINUE 

S< 1 )*0.  9**SLIFE 

IF(S(  1  ) .  GE.  0.  94  AND.  S<1)  LE.  0.  96)G0T02O 
DIFF*S ( 1 ) -0.  99 

I F ( D I FF *OLD IFF.  LT. 0.  0 ) DELTAL*~DELTAL/2  0 

OLDIFF*DIFF 

L ( 1 ) =L ( 1 ) +DELTAL 

10  CONTINUE 
20  CONTINUE 

OLDIFF-1.  0 
SL=ASLL/10. 

DELTAL=SL 
DO  11  1*1, 50 
SLIFE=0.  0 
DO  37  IN*1, NN 

SL IFE*SLIFE+NCOMP  (  IN )  # (  SL/AL IFE  (  IN )  )**EW(  IN) 

37  CONTINUE 

SD-SLIFE 

IF ( SD.  GE.  0.  99.  AND.  SD.  LE.  1.01  >G0T021 
DIFF*SD— 1 .  00 

I F ( D I FF *OLD I FF .  LT  0.  0 ) DELTAL=-DELTAL/2.  0 

OLDIFF-DIFF 

SL*SL-DELTAL 

11  CONTINUE 
WRITE! 1, 100) 

100  FORMAT ( 5X,  'ITERATION  FOR  THE  TRANSMISSION ' 'S  L5  LIFE  WAS', 
l  'UNSUCCESSFUL.  '/.5X, 'PROGRAM  TERMINATING ' ) 

C 


C  CALCULATE  THE  TRANSMISSION'S  L30  LIFE  USING  A  HALF  INTERVAL  METHOD 
C  CALCULATE  A  SEED  VALUE  LARGER  THE  L30  AND  ITERATE  DOWN  TO  L30  LIFE 
C 

21  CONTINUE 
CONTINUE 
E*100. 

DO  34  1*1, NN 
I F ( EW ( I ) .  LT.  E)E»EW(I) 

34  CONTINUE 

L(23)*L(1)*<AL0G<1. O/O.  S)/AL0Q<1. 0/0.  93) )**(1. 0/E) 

DELTAL-L ( 1 ) 

OLDIFF-1.  0 
C 

C  ITERATION  FOLLOWS 
C 

DO  30  1*1. 50 
SLIFE*0.  0 
DO  32  IN=1, NN 

SLIFE*SLIFE+NCOMP< IN)*(L(25> /ALIFEt IN) )**EW< IN) 

32  CONTINUE 

S(23>-0. 9**SLIFE 

IF (S < 25 ) .  GE.  0.  49.  AND.  S<25).  LE.  0.  31  >C0T035 
DIFF*0.  5-S ( 25  > 

IF < DIFF*OLDIFF.  LT. 0.  0 ) DELTAL=-DELTAL/2  0 
OLDIFF=DIFF 
L ( 23 ) *L ( 23 ) -DELTAL 
30  CONTINUE 

WRITE( 1. 110) 

110  FORMAT  ( 5X«  'ITERATION  FOR  THE  TRANSMISSION  "S  L30  LIFE  WAS'. 

1  'UNSUCCESSFUL.  '/,  5X.  'PROGRAM  TERMINATING') 

STOP 

C 

C  ITERATIONS  FOR  L5  AND  L50  ARE  COMPLETE.-  CALCULATE  LIFE  INCREMENT 
C  FOR  GENERATION  OF  TABLE  OF  LIVES  AND  RELIABILITIES  (23  DATA  PAIRS) 
C 

35  CONTINUE 

DELTAL* ( L ( 23 ) -L ( 1 ) ) /24.  0 
C 

C  CALCULATE  TABLE  OF  LIVES  AND  RELIABLITIES  (L. S) 

C 

DO  40  1*2. 24 
L ( I )*L( 1-1 )+DELTAL 
SLIFE*0.  0 
DO  33  IN* 1 . NN 

SLIFE=SL IFE+NCOMP  < IN)*<L< I )/ALIFE< IN) >**EW< IN) 


33  CONTINUE 

S<I)«0.  9**SLIFE 
40  CONTINUE 

C 

C  TRANSFORM  USING  NATURAL  LOGS  SO  A  LINEAR  REGRESSION  MAY  BE  USED 
C 

DO  30  1-1 ,  25 
L(I)-ALOC(L(D) 

S(I)»AL0G(AL0G(1. 0/S(I) ) ) 

30  CONTINUE 

C 

C  CALCULATE  THE  TRANSMISSION'S  ME I BULL  EXPONENT 
C 

CALL  LEASQR  ( 23,  L<  S<  A<  ET ) 

C 

C  CALCULATE  THE  TRANSMISSION'S  L10  LIFE 
C 

LT10=EXP<  <ALOG<ALOQ< 1.  0/0.  9>  >-A>/ET> 

RETURN 

END 

C 

SUBROUTINE  MINIMUM< ALIFE. N, AMIN) 

C 

C  CHECK  FOR  MINI MUN  NUMBER  IN  ARRAY 

C 

DIMENSION  ALIFE(N) 

AM IN- 10000000. 

DO  30  1  =  1,  N 

IF ( ALIFE < I )  .  LT.  AMIN ) AMIN=ALIFE ( I ) 

30  CONTINUE 

RETURN 
END 

- - 

SUBROUTINE  SETKPHE,  F,  E,  MG,  MG  1 ,  NP .  NG,  SPEED2,  LP10R,  HP10R, 

*LP  10L,  HP10L,  LG10,  HG10,  PG,  EG,  FOR,  FOL,  Rl,  R2,  DC  APR,  DCAPL, 

*DCAG, FE) 

- - 

C  CALCULATION  OF  THE  LIFE  OF  THE  PINION  AND  GEAR  MESH 

C - 

C 

C  INPUTS 
C 

C  PHE  -PRESSURE  ANGLE  OF  THE  MESH  (RADIANS) 

C  F  -FACE  WIDTH  (IN) 

C  E  -MESH  MATERIAL  CONSTANT  (PSI) 
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C  MG  -GEAR  RATIO 

C  NP  -NUMBER  OF  TEETH  OF  THE  PINION 

C  NO  -NUMBER  OF  TEETH  OF  THE  GEAR 

C  SPEED2-SPEED  OF  OUTPUT  SHAFT 
C  PG  -MESH  MATERIAL  CONSTANT 

C  EG  -MESH  WE I BULL  EXPONENT 

C  FOR  -TOTAL  FORCE  TRANSMITTED 

C  R 1  -REFERENCE  PLANE  RADIUS  OF  SPIRAL  BEVEL  PINION  (IN) 

C  R2  -REFERENCE  PLANE  RADIUS  OF  SPIRAL  BEVEL  GEAR  (IN) 

C 

C  OUTPUT 
C 

C  LP 10  -THE  L10  LIFE  OF  THE  PINION  (CYCLES) 

C  HP  10  -THE  L10  LIFE  OF  THE  PINION  (HOURS) 

C  LG 10  -THE  L10  LIFE  OF  THE  GEAR  (CYCLES) 

C  HG10  -THE  L10  LIFE  OF  THE  GEAR  (HOURS) 

C  DCAP  -THE  DYNAMIC  CAPACITY  OF  THE  PINION  (LBS) 

C  DC AG  -THE  DYNAMIC  CAPACITY  OF  THE  GEAR  (LBS) 

C  FOR  -FORCE  ON  THE  PINION 

C  FE  -FORCE  ON  THE  GEAR 

C 

REAL  NP. NG, MG. MG1, LP10R. LP10L, LG10, LP10TR, LP10TL. LG10T 
Fl».  5*F 

CBG=BASCAP(R1,  R2.  PHE.  FI.  E) 

FE«( (F0R**PG+F0L**PG>/2.  >**(1. /PG) 

CALCULATE  LIFE  OF  GEAR  TEETH 

LP 10TR* ( CBG/FOR ) **PG 
LP 10TL* ( CBC/FOL ) **PG 
LG10T* ( C8G/FE ) **PG 
VEG*1. /EG 
VPG-1.  /PG 

CALCULATE  LIFE  OF  PINION  AND  GEAR 

LP10R-( 1. /NP ) **VEG/MC/MG 1 *LP 10TR 
HP10R»LP10R*16666  666/SPEED2 
LP10L»( 1. /NP)**VEG/MG/MG1*LP10TL 
HP 10L*LP 10L* 16666.  666/SPEED2 
LG10»(1.  /NG)**VEG/MG1*LG10T 
HG10*LG1 0*1 6666  666/SPEED2 

CALCULATE  BASIC  DYNAMIC  CAPACITY  OF  PINION  AND  GEAR 


DCAPR-C ( 1.  /NP)**VEG/MG/MG1)**VPG*CBG 
DCAPL-l (1.  /NP  >**VEG/MG/MG1 )**VPG*CBG 
DCAG-< (1. /NG ) **VEG/MG 1 >**VPG*CBG 
RETURN 
END 

SUBROUTINE  TAPER  1 (R, T, AK, REA) 

C - 

C  THIS  SUROUTINE  CALCULATES  THE  EQUIVALENT  REACTION  AT  A 

C  SINGLE  ROW  TAPERED  ROLLER  BEARING 

C - 

C  INPUT 

C  R  -RADIAL  LOAD 

C  T  -THRUST  LOAD 

C  AK  -RATIO  OF  BASIC  RADIAL  RATING  TO  BASIC  THRUST  RATING 

C 

C  OUTPUT 
C 

C  RE  -EQUIVALENT  RADIAL  LOAD 

C 

REA*.  4*R+AK*T 
IF  (REA.  LT.  R  )REA— R 
RETURN 
END 

SUBROUTINE  TAPER2(R,  T,  AK,  REA) 

C - 

C  THIS  SUROUTINE  CALCULATES  THE  EQUIVALENT  REACTION  AT  A 

C  DOUBLE  ROW  TAPERED  ROLLER  BEARING 

U - —  “  — - -  -  -  -  -  -  -  - 

C  INPUT 

C  R  -RADIAL  LOAD 

C  T  -THRUST  LOAD 

C  AK  -RATIO  OF  BASIC  RADIAL  RATING  TO  BASIC  THRUST  RATING 

C 

C  OUTPUT 
C 

C  RE  -EQUIVALENT  RADIAL  LOAD 

C 

CHECK-O.  60*R/AK 
IF(T.  GT.  CHECK ) GOTO  10 
REA-R*.  5+.  83*AK*T 
G0T020 

10  REA-O.  40*R+AK*T 

20  CONTINUE 

RETURN 
END 
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SUBROUTINE  XXYY1 (FR1, FA, V, BALLS, DIA, ANGLE,  X.  Y> 


C- 

C 

C 

C 

C 

C 

C 

C 

C 


THIS  SUBROUTINE  CALCULATES  THE  RADIAL  FACTOR  AND  THRUST  FACTOR 
FOR  SINGLE  ROW  BALL  BEARINGS 


INPUTS 


FR1 

FA 


TOTAL  RADIAL  LOAD  (LBS) 
TOTAL  THRUST  LOAD  (LBS) 


c 

V 

ROTATION  FACTOR  OF  BEARING 

c 

1.0  FOR  INNER  RACE  ROTATION 

c 

1.  2  FOR  OUTER  RACE  ROTATION 

c 

BALLS 

NUMBER  OF  BALLS  PER  BEARING 

M 

c 

DIA 

DIAMETER  OF  THE  BALLS 

c 

c 

ANGLE 

CONTACT  ANGLE  OF  THE  BALL  BEARING 

c 

OUTPUTS 

1  \ 
i*.  -• 

c 

X 

RADIAL  FACTOR 

c 

Y 

THRUST  FACTOR 

10 


DIMENSION  A(  10),  Y1  (9),  Y2(9>,  Y3(9>,  El  (9),  E2(9),  E3(9> 

DATA  XI,  X2,  X3,  X4.  X5,  X6,  X7,  X8/0.  56,  0.  46,  0.  44,  .  43,  .  41,  .  39.  .  37.  .  35/ 
DATA  Y4»  Y5.  Y6,  Y7,  Y8/1.  00,  87,  .  76,  .  66.  57/ 

DATA  E4,  E5,  E6,  E7,  E8/0.  57,  0.  68,  0.  80.  0  95.  1.  14/ 

DATA  A/25.  ,  50.  ,  100.  ,  150.  ,  200.  ,  300.  ,  500  ,  750.  ,  1000.  ,  10000.  / 

DATA  Yl/2.  30,  1.  99,  1.  71,  l.  55.  1.  45,  1.  31,  1.  15,  1.  04,  1.  00/ 

DATA  Y2/1.  88,  1.  71,  1.  52,  1.  41,  1.  34,  l.  23,  1.  10,  1.  01.  1.  00/ 

DATA  Y3/1.  47,  1.  40,  1.  30,  1.  23,  1.  19,  1.  12,  1.  02,  1.  00,  1.  00/ 

R0WS=1.  0 

CHECK2=FA/(V*FR1 ) 

IF  (ANGLE.  GT.  5.  00)  GOTO  10 
CHECK 1 =FA/ ( ROWS*B ALLS*D I A**2 ) 

DO  1  1  =  1,9 

IF ( CHECK1 .  GT.  A(  I ) .  AND.  CHECK1.  LT.  A(  1  +  1  )  )G0T02 
CONTINUE 
IF(  I.  GT.  9)1=9 

IF ( CHECK2.  LE.  El ( I ) ) GOTO 1000 

X*X1 

Y=Y1 ( I ) 

G0T0999 

CHECK1=FA/(BALLS*DIA**2> 

IF (ANGLE.  GT  10  0)G0T020 
DO  11  1  =  1,  9 

IF ( CHECK  1 .  GT  A (  I  ) .  AND.  CHECK1.  LT.  A<  1  +  1 )  )G0T012 
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1  »  9  >•  *»****<»  ' 


r 


>*K* 


11  CONTINUE 

IF<  X.  OT.  9)  1*9 

12  IFCCHECK2.  LE.  E2( I ) ) GOTO 1000 
X-X2 

Y*Y2< I ) 

C0T0999 

20  IF  (ANGLE.  QT.  15.  0)00T030 
00  21  1-1,  9 

IF (CHECK1.  OT.  A(  I ).  AND.  CHECK1.  LT.  AC  1+1 )  )00T022 

21  CONTINUE 

IF<  I.  OT.  9)1*9 

22  IF(CHECK2.  LE.  E3( I ) ) GOTO 1000 

X*X3 

Y*Y3 ( I ) 

G0T0999 

30  I F  (  ANGLE.  OT.  20.  0 )  G0T040 

IF ( CHECK2.  LE.  E4)G0T01000 
X-X4 
Y»Y4 
C0T0999 

40  IF  (ANGLE.  OT.  25.  0)G0T050 
IF ( CHECK2.  LE.  E5) GOTO  1000 
X»X5 
Y*Y5 
G0T0999 

30  IF (ANGLE.  GT.  30.  0)G0T060 

IF (CHECK2.  LE.  E6) GOTO 1000 
X*X6 
Y=Y6 
G0T0999 

60  IF(ANGLE.  GT.  35.  0)G0T070 

IF ( CHECK2.  LE.  E7)G0T01000 
X»X7 
Y*Y7 
G0T0999 

70  IF(CHECK2.  LE.  E8)G0T01000 

X*X8 
Y-Y8 
G0T0999 
1000  X-1.0 

Y*0.  0 

999  RETURN 

END 

SUBROUTINE  XXYY2CFR1 , FA,  V, BALLS, DIA,  ANCLE, X, Y) 

C - - - 
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i  AU.Vi  ."i  J 


M 


miLM 
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INPUTS 

FR1  TOTAL  RADIAL  LOAD  (LBS) 

FA  TOTAL  THRUST  LOAD  (LBS) 

V  ROTATION  FACTOR  OF  BEARING 
1.0  FOR  INNER  RACE  ROTATION 
1.2  FOR  OUTER  RACE  ROTATION 

BALLS  NUMBER  OF  BALLS  PER  BEARING  ROW 

DIA  DIAMETER  OF  THE  BALLS 

ANGLE  CONTACT  ANGLE  OF  THE  BALL  BEARING 

OUTPUTS 

X  RADIAL  FACTOR 

Y  THRUST  FACTOR 

DIMENSION  A( 10 ) ,  Y  * (9 ) ,  Y2(9 ) »  Y3  (9) »  Y4(9 ) ,  Y5  (9 ) .  Y6(9 ) ,  Y7  (9 ) 
DIMENSION  E 1 ( 9 ) . E2 ( 9 ) . E3 ( 9 ) *  E4 ( 9 ) 

DATA  A/25.  ,  50.  ,  100.  ,  150.  ,  200  *  300.  ,  500  ,  750.  ,  1000.  ,  10000.  / 

DATA  Yl/2.  30,  1.  99,  1.  71,  1.  55,  1.  45,  1.  31,  1.  15,  1.  04,  1.  00/ 

DATA  Y2/2.  78,  2.  40,  2.  07,  1.  87,  1.  75,  1.  58,  1.  39,  1.  26,  1.  21/ 

DATA  Y3/3.  74,  3.  23,  2.  78,  2.  52,  2.  36,  2.  13,  1.  87,  1.  69,  1.  63/ 

DATA  Y4/2.  18,  1.  98,  1.  76,  1.  63,  1.  55,  1.  42,  1.  27,  1.  17,  1.  16/ 

DATA  Y5/3.  06.  2.  78,  2.  47,  2.  29,  2.  18,  2.  00,  1.  79,  1.  64,  1.  63/ 

DATA  Y6/1.  65,  1.  57,  1.  46,  1.  38,  1.  34,  1.  26,  1.  14,  1.  12,  1.  12/ 

DATA  Y7/2.  39,  2.  28,  2.  11,2.  00,  L.  93,  1.82,1.66,1.  63,  1 .  63/ 

DATA  El/O.  19,  0.  22,  0.  26,  0.  28,  0.  30,  0.  34,  0.  38,  0.  42,  0.  44/ 

DATA  E2/0.  23.  0.  26,  0.  30,  0.  34.  0.  36,  0.  40,  0.  45,  0.  50,  O.  52/ 

DATA  E3/0.  29,  0.  32,  0.  36,  0.  38,  0.  40,  0.  44,  0.  49,  O.  54,  0.  54/ 

DATA  E4/0.  38,  0.  40,  0.  43,  0.  46,  0.  47,  0.  50,  0.  55,  0.  56,  O.  56/ 

DATA  XI,  X2,  X3,  X4,  X5,  X6,  X7,  X8/0.  56,  1.  ,  0.  78,  1.  ,  0.  75,  1.  ,  0.  72,  1.  / 
DATA  X9,  X10,  XU,  X12,  X13,  X14.  X15,  X16,  X17/0.  70,  1.  ,  0.  67,  1.  ,  0.  63 
*,  1.  ,  0.  60,  1.  ,  0.  93/ 

DATA  Y8,  Y9,  Y10,  YU,  Y12,  Y13.  Y14,  Y15,  Y16,  Y17/1  09,  1.  63,  0.  92,  1.  41. 
*0.  78,  1.  24,  0.  66,  1.  07,  0.  55,  0.  93/ 

DATA  E5,  E6,  E7,  E8,  E9/0.  57,  0.  68,  0.  80,  0.  95,  1.  14/ 

ROWS-2.  0 

CHECK2-FA/(V*FR1 ) 

IF  (ANGLE.  GT.  5  01G0T010 
CHECK 1 -FA/ ( ROWS*BALLS*D I A**2 ) 

DO  1  1*1,9 

IF ( CHECK  1 . GT  A ( I )  AND  CHECK!  LT  A( 1  +  1 ) 1G0T02 


I 

£• 

s>: 


k 


/ 

I 


r 


1  CONTINUE 

IF(  I.  GT.  9)1*9 

2  IFCCHECK2.  LE.  El  <  I ) >G0TQ3 

X=X1 

Y*Y1 (I) 

G0T0999 

3  X*1.0 
Y*0.  O 
G0T0999 

10  CHECK1*FA/ ( BALLS*DI A**2 ) 

IF  (ANGLE.  GT.  10.  0)G0T020 
DO  11  1*1,9 

IF (CHECK1.  GT.  A(  I ).  AND.  CHECK1.  LT.  A(  1  +  1 )  )G0T012 

11  CONTINUE 

IF ( I.  GT.  9)1*9 

12  IF(CHECK2. LE.  E2< I ) )G0T013 
X=X3 

Y*Y3( I ) 

G0T0999 

13  X*X2 
Y*Y2< I ) 

G0T0999 

20  IFCANGLE.  GT.  10.  )G0T030 
DO  21  1*1, 9 

IF (CHECK1.  GT.  A (  I  ) .  AND.  CHECK1.  LT.  A(  1  +  1 )  >G0T022 

21  CONTINUE 

IF(  I.  GT.  9)1*9 

22  IFCCHECKl.  LE.  E3( I ) )G0T023 
X=X3 

Y=Y5 ( I ) 

G0T0999 

23  X=X4 
Y=Y4( I ) 

G0T0999 

30  IF(ANGLE.  GT.  15.  )G0T040 
DO  31  1*1, 9 

IFCCHECKl.  GT  A (  I  )  AND.  CHECK1.  LT.  A(  1  +  1  )  )G0T032 

31  CONTINUE 

IF<  I.  GT.  9)  1*9 

32  IF ( CHECK2.  LE.  E4 ( I ) ) G0T033 
X-X7 
Y*Y7< I ) 

G0T0999 
X*X6 
Y»Y6( I  ) 


33 


G0T0999 

40  IF  (ANCLE.  QT.  20.  >G0T050 

IF(CHECK2.  LE.  E51G0T043 
X*X9 
Y-Y9 
C0T0999 

43  X«X8 

Y»Y8 
C0T0999 

50  IF( ANCLE.  QT.  25.  0)G0T060 

IF (CHECK2.  LE.  E6>G0T053 
X-XU 
Y*Y11 
C0T0999 

53  X»X10 

Y*Y10 
C0T0999 

60  IF  (ANCLE.  CT.  30.  O)G0T070 

IF (CHECK2.  LE.  E7)G0T063 
X-X13 
Y-Y13 
G0T0999 

63  X=X  12 

YS»Y12 
G0T0999 

70  IF  (ANGLE.  GT.  35.  0)G0T080 

IF (CHECK2.  LE.  E8)G0T073 
X=X  1 5 
Y*Y15 
G0T0999 

73  X**X  14 

Y*Y14 
GQTQ999 

80  IF(CHECK2.  LE.  E9>G0T083 

X*X17 
Y»Y17 
G0T0999 

83  X-X16 

Y-Y16 

999  RETURN 

END 

SUBROUTINE  DPBVIN(NP,  NG.  AO.  PHE,  F.  PHSI.  ROT,  SPR,  THETA,  E,  EG,  PG, 
1PHE1,  PHSI1,  THETA1,  CASEP,  PTL,  AP,  BP,  ITYPEP1,  NBP1,  DPI,  ACPI,  AK1, 
2BDCAP1.  RFP1,  ECP1,  ITYPEP2,  NBP2,  DP2,  ACP2,  AK2,  BDCAP2,  RFP2,  EGP2, 
3CASEG,  GTL,  AG,  BG,  ITYPEG1 ,  NB01,  DG1 ,  ACG1 ,  AK3,  BDCAG1 ,  RFC1,  EG01, 
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4ITYPEG2,  NBG2,  DG2,  AC 62.  AK4,  BDCA02.  RF02.  EGC2.  MO.  GAMMA  1 »  GAMMA.  ZZ 
3ZZ1,  DP,  DO,  RPD,  RP.  ROD,  RG,  HK,  AOG,  AOP,  HT,  BOG.  BOP,  PD, 

6ADUP1, ADJP2,  AD JG 1 ,  ADJG2,  ZIP) 

C 

C  SPIRAL  BEVEL  INPUT 

C 

CHARACTER*?  DATAFILE 

INTEGER  NO, YES, ANSWER, CASEP, CASEO,  PTL,  GTL 
REAL  NP, NO, MG, NBP1,  NBP2,  NBG1,  NB02 
PARAMETER (NO-' NO',  YES-'YES' > 

PI 1-3.  141592634 
WRITE(1, 300) 

300  FORMAT ( /  /  '  DUAL  PINION  SPIRAL  BEVEL  GEAR  UNIT  INPUTS'//) 
WRITEd,  999) 

READd,  99)  ANSWER 

IF ( ANSWER.  EQ.  NO) GO  TO  501 

WRITEd,  302) 

302  FORMAT < 'WHAT  IS  THE  NAME  OF  THE  INPUT  FILE') 

READ ( 1 . 503 ) DATAF I LE 

303  FORMAT ( A ) 

OPEN (UN IT-53,  FILE-DATAFILE,  STATUS- ' UNKNOWN ' ) 

NRE-35 
GO  TO  300 

301  NRE-1 
500  CONTINUE 

CALL  GEAR  INP  (NRE.  NP,  NG.  AO,  PHE,  F,  PHSI,  ROT,  SPR, 

♦THETA.  E,  EG.  PG) 

CALL  GEAROUT (NP,  NG,  AO,  PHE,  F.  PHSI,  ROT,  SPR, 

♦THETA,  E,  EG,  PG) 

WRITEd,  1070) 

READ (NRE,  ♦)LL1 

IF ( LL1 . EQ.  1 )G0T0500 

WRITEd,  3000) 

READ (NRE,  *)ZIP 
PHE 1-PHE*PI 1/180. 

PHSI 1— PHSI*P I I / 180. 

TI— TI*ROT 

THETA 1 -THET A*P 11/180. 

C 

C 

C  ENTERING  THE  VALUES  FOR  THE  PINION  AND  ITS  BEARINGS 

C 

C 

WRITEd,  1074) 

600  CONTINUE 


CALL  CASEINP (NRE, CASEP, PTL, AP, BP) 

CALL  CASEOUT < CASEP, PTL, AP, BP) 

WRITEd, 1070) 

READ  (NRE, *)L1 
IF (LI .  EQ.  1 ) G0T0600 

601  CONTINUE 

WR I TE ( 1 , 1040) 

CALL  BEARINP (NREi  ITYPEP 1 , NBP 1 , DPI.  ACPI. AK1.  BDCAP1.  RFP1.  EGP1, ADJP1 ) 
CALL  BEAROUT ( I TYPEP 1 . NBP 1 . DP 1 . ACP 1 ,  AK 1 . BDC AP 1 .  RFP 1 .  EGP 1 .  AD JP 1 ) 
WRITE(1. 1070) 

READ(NRE. »)L2 
IF  (L2.  EQ.  1  ) G0T0601 

602  CONTINUE 
WRITE(1. 1043) 

CALL  BEARINP  (NRE,  ITYPEP2.  NBP2.  DP2.  ACP2.  AK2.  BDCAP2.  RFP2.  EGP2.  ADJP2) 
CALL  BEAROUT (ITYPEP2. NBP2. DP2. ACP2. AK2, BDCAP2. RFP2. EGP2.  ADJP2) 
WRITEd.  1070) 

READ (NRE. *>L3 
IF  ( L3.  EQ.  1  )  G0T0602 
C 
C 

C  INPUT  THE  GEAR  AND  ITS  SUPPORTING  BEARINGS 

C 

C 

WRITEd.  1075) 

603  CONTINUE 

CALL  CASEINP (NRE. CASEG. GTL. AG. BG) 

CALL  CASEOUT (CASEG. GTL. AG,  BG) 

WRITEd.  1070) 

READ (NRE.  *>L4 

IF ( L4.  EQ.  I  ) GQT0603 

604  CONTINUE 
WRITEd,  1040) 

CALL  BEARINP (NRE, ITYPEGl, NBG1, DG1, ACG1. AK3, BDC AG 1. RFG 1 . EGG 1 , AD JG 1 ) 
CALL  BEAROUT ( ITYPEGl, NBG1 , DG1, ACG1, AK3, BDCAG1, RFG1, EGG1 , ADJG1 ) 
WRITEd,  1070) 

READ (NRE, *>L5 
IF ( L3.  EQ.  1  )G0T0604 
603  CONTINUE 

WRITEd,  1045) 

CALL  BEARINP (NRE.  ITYPEG2, NBG2, DG2, ACG2, AK4, BDCAG2, RFG2,  EGG2, ADJG2 ) 
CALL  BEAROUT ( I TYPEG2, NBG2. DG2. ACG2, AK4, BDCAG2, RFG2, EGG2, ADJG2) 
WRITEd,  1070) 

READ (NRE,  *)L6 

IF ( L6.  EQ.  1  )G0T0603 


160 


■\  f. 


CLOSE  OS) 

C - 

C  CALCULATION  OF  GEAR  RATIO  AND  OUTPUT  SPEED 

C - 

MC-NG/NP 

SPEED2-SPEED/MG 

C - 

C  CALCULATION  OF  GAMMA 

C - 

GAMMA 1 -AT AN ( S I N ( THETA 1 ) / ( MG+COS ( THETA 1 ) ) ) 

GAMMA— GAMMA 1*180.  /PI I 
ZZ -THETA-GAMMA 
ZZ1— ZZ*PI 1/180. 

C - 

C  CALCULATION  OF  PITCH  DIAMETER  OF  GEAR  AND  PINION 

C  AND  REFERENCE  PITCH  DIAMETER  OF  GEAR  AND  PINION 

C - 

DP— < AO— F/2.  )*<2.  *S I N ( GAMMA 1 > ) 

DG— < AO-F/2.  ) *  <  2.  *SIN<  ZZ1 ) ) 

PD-NO/DO 

RPD-DP*.  5/COS < GAMMA 1) 

RP=DP*  5 

RGD-DG*.  5/C0S( ZZ1 ) 

RG-DG*. 3 

C - 

C  WORKING  DEPTH 

C - 

HK-1.  70/PD 

C - 

C  ADDENDUM  OF  GEAR  AND  PINION 

C - 

AOG-O. 46/PD+O.  390/ ( PD*MG**2 ) 

AOP-HK-AOG 

C - 

C  WHOLE  DEPTH 

C - 

IF(PD.  LT.  10.  ) GO  TO  SO 

HT-1 .  888/PD 

G0T031 

SO  HT-1.  888/PD+.  005 

31  CONTINUE 

C - 

C  DEDENDUM  OF  THE  GEAR  AND  PINION 

C - 

BOG-HT-AOG 


BOP-HT-AO 

999  FORMAT ('DO  YOU  WISH  TO  USE  A  DATA  SET'/ 

* 'ANSWER  YES  OR  NO') 

1040  FORMAT < 'PINION  BEARING  41') 

1043  FORMAT ( 'PINION  BEARING  #2') 

1046  FORMAT ( 'GEAR  BEARING  41') 

1047  FORMAT ( 'GEAR  BEARING  #2') 

1070  FORMAT ( 'DO  YOU  WISH  TO  CHANGE  ANY  OF  THESE  PARAMETERS'/ 
♦'ENTER  1  TO  CHANGE') 

1074  FORMATt 'PINION  MOUNTING' ) 

1073  FORMAT ( 'GEAR  MOUNTING' ) 

3000  FORMAT < 'WHAT  IS  THE  ANGLE  BETWEEN  THE  TWO  PINIONS') 

99  FORMAT (1A4) 

RETURN 

END 

SUBROUTINE  CASEINP ( NRE. CS, TL. A, B) 

INTEGER  CS, TL 


C - 

C  INPUT  FOR  CASE  OF  BEARING  AND  GEAR  MOUNTING 

c - 

C 

WRITEU.  1017) 

READ (NRE. ♦)CS 
WRITEU,  1048) 

READ (NRE, ^)TL 
WRITEU,  1018) 

READ (NRE, #)A 
WRITEU,  1019) 

READ (NRE, #)B 
IF(CS.  EQ.  2)A*-A 

1017  FORMAT ( 'WHICH  CASE  OF  BEARING  PLACEMENT  IS  BEING  USED'/ 
♦'CASE  #1'/ 

♦  'BEARING - GEAR - BEARING'/ 

♦'  #1  #2'/ 

*'♦ - A - * - B - ♦'// 

♦ 'CASE  #  2 ' / 

♦  'GEAR - BEARING - BEARING'/ 

♦'  41  42'/ 

♦  - A - *  ,/ 

*  '# - B - 4'  ) 

1048  FORMAT! 'WHICH  BEARING  CARRIES  THE  THRUST  LOAD'/ 
♦'BEARING  41  OR  BEARING  42') 

1018  FORMAT! 'ENTER  DISTANCE  A  -  DISTANCE  FROM  ♦  TO  ♦  (IN)') 


«'4fl 
itj 

! "Jvl 


9 


ijjl 


SI 


el 


1019 

100 

12 


FORMAT < 'ENTER  DISTNACE  B  -  DISTANCE  FROM  ♦  TO  *  (IN)') 
FORMAT  (FI  5.  3) 

FORMAT  (ID 

RETURN 

END 

SUBROUTINE  CASEOUT ( CS, TL» A,  B ) 

INTEGER  CS.  TL 


C - 

C 

C - 


CASE  ECHO 


WRITE(1.  100 )CS.  TL.  A.  B 
FORMAT </ 

♦  'CASE  NUMBER  '.13/ 

♦'BEARING  TAKING  THE  THRUST  LOAD  '.13/ 

♦  'DISTANCE  A  '.F14.4/ 

♦  'DISTANCE  B  '»F14.4/> 

RETURN 

END 

SUBROUTINE  BEARINP (NRE.  I TYPE.  NB.  D. AC.  AK,  BDCAP.  RF,  EG.  ADJ) 


BEARING  INPUT 


REAL  NB 
WRITE(1, 1000) 

READ (NRE.  ♦)ITYPE 

IF(  I  TYPE.  EQ.  3.  OR.  I  TYPE.  Ed.  4>C0T0410 
IF  ( I  TYPE.  GT.  4 )  G0T0400 
WRITEd.  1001) 

READ (NRE.  ♦ )NB 
WRITEd.  1002) 

READ (NRE.  ^)D 
WRITEd,  1003) 

READ ( NRE,  ♦> AC 

G0T0410 

CONTINUE 

IF ( ITYPE.  LE.  3)G0T0410 
WRITEd.  1004) 

READ ( NRE.  ♦)AK 
CONTINUE 
WRITEd,  1003) 

READ (NRE,  ♦) BDCAP 
IF  (ITYPE.  GT.  4)GOT0420 
WRITEd,  1007) 

READ (NRE,  ♦)RF 
CONTINUE 


^  ■*  \  -V  W  "  ®  *  J, 


mm 


WRITE(1.  1008) 

R£AD(NRE, #)EC 
WRITE ( 1 1  1010) 

READ(NRE> *)ADJ 

1000  FORMAT ('TYPE  OF  BEARING  -  ENTER  NUMBER'/ 

*'  1  -  SINGLE  ROW  BALL  BEARING'/ 

*'  2  -  DOUBLE  ROW  BALL  BEARING'/ 

*'  3  -  SINGLE  ROW  ROLLER  BEARING'/ 

♦  '  4  -  DOUBLE  ROW  ROLLER  BEARING'/ 

*'  5  -  SINGLE  ROW  TAPERED  ROLLER  BEARING'/ 

*'  6  -  DOUBLE  ROW  TAPERED  ROLLER  BEARING') 

1001  FORMAT ( 'NUMBER  OF  BALLS  OR  ROLLERS') 

1002  FORMAT ( 'DIAMETER  OF  BALLS  OR  ROLLERS') 

1003  FORMAT < 'BEARING  CONTACT  ANGLE') 

1004  FORMAT ( 'WHAT  IS  THE  RATIO  OF  BASIC  RADIAL  RATING  TO'/ 
♦'BASIC  THRUST  RATING  FOR  TAPERED  ROLLER  BEARINGS') 

1003  FORMAT ( 'ENTER  THE  BASIC  DYNAMIC  CAPACITY  OF  BEARING') 

1007  FORMAT < 'ENTER  THE  ROTATION  FACTOR'/ 

♦  '1.0  FOR  INNER  RACE  ROTATION'/ 

♦  '1.2  FOR  OUTER  RACE  ROTATION') 

1008  FORMAT  (  'WHAT  IS  THE  WE  I  BULL  EXPONENT  FOR  THE  BEARING') 
1010  FORMAT < 'WHAT  IS  THE  LIFE  ADJUSTMENT  FACTOR') 

100  FORMAT < FI 3.  5) 

12  FORMAT (II) 

RETURN 

END 

SUBROUTINE  BEAROUT ( ITYPE, NB, D, AC. AK, BDCAP. RF, EG, ADJ) 

C - 

C  BEARING  ECHO 

C - 

REAL  NB 

WRITE ( 1 , 100) ITYPE, NB, D, AC, AK, BDCAP, RF, EG, ADJ 


100  FORMAT (/ 

♦  '  TYPE  OF  BEARING _ _ _ ',13/ 

♦  '  NUMBER  OF  ROLLING  ELEMENTS _  ',F14.  5/ 

♦  '  DIAMETER  OF  ROLLING  ELEMENTS _ _  ',F14.  5/ 

♦  '  CONTACT  ANGLE  (BALL  BEARING  ONLY) _  ',F14.  3/ 

♦'  RADIAL  TO  THRUST  RATIO'/ 

♦  '  (TAPER  ROLLER  BEARING  ONLY). _  ',F14.  5/ 

♦'  BASIC  DYNAMIC  CAPACITY _  ',F14  5/ 

♦  '  ROTATION  FACTOR _ ',F14.  5/ 

*'  WE  I  BULL  EXPONENT _ ',F14.  3/ 

♦  '  LIFE  ADJUSTMENT  FACTOR _ ',F14.  5/) 

RETURN 

END 


SUBROUTINE  GEARINP(NRE,  NP,  NG,  AO/  PHE,  F,  PHSI.  ROT,  SPR. 

♦THETA,  E,  EG,  PG) 

REAL  NP,  NG 
WRITEd,  1030) 

READ ( NRE,  #)NP 
WRITE! 1, 1051 ) 

READ (NRE,  #)NG 
WRITEt 1, 1032) 

READ (NRE,  #)A0 
WRITE! 1,  1033) 

READ (NRE,  ♦)PHE 
WRITE(1,  1034) 

READ (NRE,  #)F 
WRITE! 1,  1038) 

READ (NRE,  ♦)PHSI 
WRITEd,  1059) 

READ (NRE,  #)ROT 
WRITEd,  1060) 

READ (NRE,  ♦)SPR 
WRITEd,  1061  ) 

READ (NRE,  ♦) THETA 
WRITEd,  1063) 

READ (NRE,  #)E 
WRITEd,  1064) 

READ (NRE,  #)EG 
WRITEd,  1065) 

READ  (NRE,  ^PG 

1050  FORMAT! 'WHAT  IS  THE  NUMBER  OF  TEETH  ON  THE  PINION') 

1051  FORMAT ( 'WHAT  IS  THE  NUMBER  OF  TEETH  OF  THE  GEAR') 

1032  FORMAT ( 'WHAT  IS  THE  CONE  DISTANCE  OF  THE  GEAR  MESH') 

1053  FORMAT ( 'WHAT  IS  THE  NORMAL  PRESURE  ANGLE  (DEG)') 

1034  FORMAT ( 'WHAT  IS  THE  FACE  WIDTH  OF  THE  GEAR  MESH  (IN)') 

1058  FORMAT ( 'WHAT  IS  THE  SPIRAL  ANGLE  OF  THE  PINION') 

1059  FORMAT (  'WHAT  IS  THE  DIRECTION  OF  PINION  ROTATION'/ 

♦'LOOKING  FROM  THE  APEX  TO  THE  FACE  OF  THE  PINION'/ 
♦'(COUNTERCLOCKWISE  INPUT  1)'/ 

♦'(CLOCKWISE  INPUT  -1  >') 

1060  FORMAT! 'WHAT  IS  THE  HAND  OF  THE  SPIRAL  ANGLE  ON  THE  PINION'/ 

♦  ' (RIGHT  INPUT  1 )  '/ 

♦  ' (LEFT  INPUT  -1 )  '  ) 

1061  FORMAT ( 'WHAT  IS  THE  SHAFT  ANGLE  BETWEEN  THE  CENTER  LINE  OF  THE'/ 
♦'PINION  SHAFT  AND  THE  CENTER  LINE  OF  THE  GEAR  SHAFT  (DEG)') 

1063  FORMAT (  'WHAT  IS  THE  MESH  MATERIAL  CONSTANT  (PSI)') 

1064  FORMAT ( 'WHAT  IS  THE  MESH  WE I BULL  EXPONENT') 

1065  FORMAT ( 'WHAT  IS  THE  MESH  LOAD-LIFE  FACTOR') 


00000000 


RETURN 

END 

SUBROUTINE  GEAROUT!NP,  NG, AO. PHE. F. PHSI, ROT, SPR, 
♦THETA,  E,  EG,  PO) 

REAL  NP,  NG 


WRITE! 1, 1071 )NP, NG, AO, PHE, F, PHSI 

♦  »  ROT,  SPR,  THETA,  E,  EG,  PG 

FORMAT!/ 

♦  '  NUMBER  OF  TEETH  ON  PINION 

',  F14.  3/ 

*  ' 

NUMBER  OF  TEETH  ON  GEAR 

',  F14.  3/ 

#  ' 

CONE  DISTANCE 

',  F14.  3/ 

* ' 

NORMAL  PRESSURE  ANGLE 

',  F14.  3/ 

*  ' 

FACE  WIDTH 

',  F14.  3/ 

*  ' 

SPIRAL  ANGLE 

',  F14.  3/ 

»  ' 

DIRECTION  OF  ROTATION 

F14.  3/ 

*  7 

HAND  OF  SPIRAL 

',  F14.  3/ 

*  ' 

SHAFT  ANGLE  BETWEEN  PINION  AND  GEAR 

',  F14.  3/ 

*  ' 

GEAR  MESH  MATERIAL  CONSTANT 

',  F14.  5/ 

#  ' 

WE I BULL  EXPONENT 

',  F14.  3/ 

*  ' 

MESH  LOAD  LIFE  FACTOR 

',  F14.  3/) 

RETURN 
END 

SUBROUTINE  CAP(T. TL10. N. DYCAPT, PGT) 

T  SET  OF  TORQUES 

THO  SET  OF  TRANSMISSION  LIVES  AT  TORQUE 

N  NUMBER  OF  DATA  SETS 

DYCAPT  DYNAMIC  CAPACITY  OF  THE  TRANSMISSION 

PGT  LOAD  LIFE  EXPONENT  FOR  THE  TRANSMISSION 

DIMENSION  T(N) . TL10(N>. ALT(IOO),  ALTLIO(IOO) 

DO  20  1-1,  N 

ALT ( I ) ^ALOG !  T !  I ) ) 

ALTL 1 0  < I ) »ALOG  <  TL 1 0  < I ) ) 

20  CONTINUE 

CALL  LEASQR (N, ALTL 10, ALT, TINT, SLOPE) 

DYCAPT*EXP!TINT) 

PGT»-1. /SLOPE 

RETURN 

END 

SUBROUTINE  DPBVOT(PD,  PHE,  PHSI,  SPR,  F,  AO,  SI,  SOF,  ROT,  TIR,  TIL,  TOF, 
1  THETA,  NP,  GAMMA,  DP.,  RPD,  AOP,  BOP, 

2PXPR,  PYPR,  PZPR,  TOTFORR, DC APR, CASEP, AP, BP, 

3R1XPR, R1YPR, R1ZPR, TOF0RP1R, BDCAP10R, 
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n  n  o 


4R2XPR,  R2YPR, R2ZPR,  T0F0RP2R, BDCAP20R, 
2PXPL,  PYPL,  PZPL,  TOTFORL,  DCAPL,  CASEP,  AP,  BP. 
3R1XPL. R1YPL. R1ZPL. TOFORP1L,  BDCAPIOL. 
4R2XPL. R2YPL. R2ZPL. T0FQRP2L.  BDCAP2QL. 

3NG,  ZZ.  DO.  ROD.  AOO,  BOO. 

6PX0R. PYOR. PZOR, TOTFOROE, DCAO. CASEO. AO. BO. 
6PX0L,  PYOL.  PZCL.  TOTFOROE.  DCAG,  CASEO.  AG.  BO. 
7R1X0.  R1YO.  R1ZO.  TOFOROl.  BDCAOIO. 

8R2X0, R2Y0. R2Z0. T0F0R02. BDCAC20. 

9D1,  PI,  LI,  HI,  El  > 


PRINT  OUT  RESULTS 


1000 


1200 


REAL  NP,  NO,  D1  (9).  PI  (9),  LI  (9).  HI  (9),  El  (9) 

INTEGER  CASEP, CASEO 
WRITE ( 1, 1000) 

FORMAT </// 

1'  SPIRAL  BEVEL  GEAR  UNIT'///) 

WRITE(  1,  1200 ) PD,  PHE,  PHSI,  SPR,  F,  AO.  SI,  SOF 
*,  ROT.  TIR,  TIL,  TOF.  THETA 
WRITEU,  1208) 

WRITE(1,  1 202 ) NP ,  GAMMA, DP. RPD.  AOP, BOP, PXPR, PYPR, PZPR 
*, TOTFORR. DC APR 

WRITE< 1, 1205) CASEP, AP, BP, R1XPR, R1YPR, R1ZPR 
*,  T0F0RP1R,  BDCAP10R, R2XPR, R2YPR, R2ZPR, T0F0RP2R,  BDCAP20R 
WR I TE ( 1 . 1209) 

WRITE(  1,  1 202 ) NP ,  GAMMA,  DP,  RPD,  AOP,  BOP,  PXPL,  PYPL,  PZPL 

♦  ,  TOTFORL,  DCAPL 

WRITE< 1, 1205) CASEP, AP, BP, R1XPL, R1YPL, R 1 ZPL 
*,  T0F0RP1L,  BDCAPIOL. R2XPL, R2YPL, R2ZPL, T0F0RP2L, BDCAP20L 
WRITE ( 1 , 1210) 

WRITE ( 1 ,  1 202 ) NG, ZZ, DO, ROD, AOG, BOG, PXGR,  PYGR,  PZGR, 
♦TOTFOROE,  DCAO 
WRITEU,  1230) 

WRITEU,  1202 )NG,  ZZ,  DO,  RGD,  AOO,  BOG,  PXGL,  PYOL,  PZGL, 
♦TOTFOROE,  DCAO 

WRITEU,  1205 ) CASEO,  AO,  BO,  R1XG,  R1Y0,  R1Z0 

♦  , TOFOROl, BDCAOIO,  R2X0,  R2Y0,  R2Z0,  T0F0RG2,  BDCA020 


FORMAT ( / / '  GEAR  MESH 

CHARACTERISTICS 

'// 

♦'  PITCH 

',  F8.  2/ 

♦'  NORMAL  PRESSURE  ANGLE 

',  FS.  2/ 

*'  SPIRAL  ANOLE 

',  F8.  2/ 

♦'  HAND  OF  THE  SPIRAL  OF 

THE  PINION  GEAR 

',  F8.  3/ 

♦'  FACE  WIDTH 

F8.  3, 

♦'  CONE  DISTANCE 

F8.  3, 

INPUT  SPEED  OF  THE  PINION  SHAFT 
OUTPUT  SPEED  OF  QEAR  SHAFT 
DIRECTION  OF  INPUT  SHAFT  ROTATION 
INPUT  TORQUE  OF  THE  RIQHT  PINION  SHAFT 
INPUT  TORQUE  OF  THE  LEFT  PINION  SHAFT 
OUTPUT  TORQUE  OF  THE  OEAR  SHAFT 
ANCLE  BETWEEN  INPUT  AND  OUTPUT  SHAFT 


1202  FORMAT ( 


,  F10.  2.  ' 

RPM'/ 

,  F10.  2<  ' 

RPM'/ 

,  F8.  3/ 

,  F10.  2.  ' 

IN-LB 

'/ 

,  FlO.  2,  ' 

IN-LB 

'/ 

,  FlO.  2,  ' 

IN-LB 

'/ 

,  F8.  2,  ' 

DEG ' / ) 

,  F8.  2/ 

,  F8.  2,  ' 

DEG'/ 

,  F8.  2,  ' 

IN'/ 

,  F8.  3,  ' 

IN'/ 

,  F8.  3,  ' 

IN'/ 

,  F8.  3,  ' 

IN'/ 

,  F9.  1,  ' 

LB  '/ 

F9.  1,  ' 

LB  '/ 

F9.  1,  ' 

LB  '/ 

F9.  1,  ' 

LB  '/ 

F9.  1,  ' 

LB'/) 

120S 


1208 

1209 

1210 

1230 


*'  NUMBER  OF  TEETH  '»  F8.  2/ 

*'  PITCH  ANCLE  '*F8.  2,  '  DEO'/ 

*'  PITCH  DIAMETER  ',F8.  2.  '  IN'/ 

*'  REFERENCE  PITCH  DIAMETER  '*F8.  3,  '  IN'/ 

*'  ADDENDUM  '»F8.  3.  '  IN'/ 

*'  DEDENDUM  '»F8.  3,  '  IN'/ 

*'  FORCES  ON  A  TOOTH  IN  THE  MESH'// 

*'  AXIAL  FORCE  ',F9.  1,'  LB'/ 

*'  RADIAL  FORCE  F9.  1.  '  LB'/ 

*'  TANGENTIAL  FORCE  '#  F9.  1,  '  LB'/ 

*'  TOTAL  FORCE  '.F9.  1,  '  LB'/ 

#'  DYNAMIC  CAPACITY  IN  FORCE  F9.  1.  '  LB'/) 

FORMAT (  '  MOUNTING  CHARACTERISTICS'// 

*'  TYPE  OF  MOUNTING  '.15/ 

*'  DISTANCE  A  '<  F8.  3/ 

*'  DISTANCE  B  '«  F8.  3// 

*'  AXIAL  LOAD  ',F10.  2,  '  LBS'/ 

*'  RADIAL  LOAD  ',F10.  2,  '  LBS'/ 

*'  TANGENTIAL  LOAD  '.F10.  2,  '  LBS'/ 

*'  TOTAL  EQUIVALENT  FORCE  '.FlO.  2,  '  LBS'/ 

*'  BASIC  DYNAMIC  CAPACITY  OF  BEARING  #1  ', F10.  1,  '  LBS'// 

*'  AXIAL  LOAD  ',F10.  2,  '  LBS'/ 

*'  RADIAL  LOAD  ',F10.  2,  '  LBS'/ 

*'  TANGENTIAL  LOAD  ',F10.  2,  '  LBS'/ 

*'  TOTAL  EQUIVALENT  FORCE  ',F10.  2,  '  LBS'/ 

*'  BASIC  DYNAMIC  CAPACITY  OF  BEARING  #2  ',F10.  1,  '  LBS'//) 

FORMAT!//'  RIGHT  PINION  CHARACTERISTICS  AND  MOUNTING  '//> 

FORMAT!//'  LEFT  PINION  CHARACTERISTICS  AND  MOUNTING  '//) 

FORMAT!// 

*'  GEAR  CHARACTERISTICS  AND  MOUNTING-MESH  WITH  RIGHT  PINION'//) 
FORMAT!// 

*'  GEAR  CHARACTERISTICS  AND  MOUNTING-MESH  WITH  LEFT  PINION'//) 
WRITE! 1, 1220) 

WRITE! 1, 1211 ) 

CALL  DPLHE ( D1  (1),P1!1).L1(1)»H1!1)»E1!1>) 

WRITE! 1. 1213) 

CALL  DPLHE  (D1  (2) .  P1!7),L1(2).H1!2).E1!2)> 


1220 


1211 

1213 

1214 
1212 

1215 

1216 

1217 

1218 
1219 


UR I TE ( 1 »  1214) 

CALL  DPLHE !D1  !3),P1!8),L1!3),H1!3),E1!3>> 

WRITE ! 1 1  1212) 

CALL  DPLHE!D1!7),  PI (7), LI!  7), HI (7), El (7) ) 

WRITE ( 1 , 1215) 

CALL  DPLHE !D1  !8),P1!8),L1!8),H1!8),E1(8>> 

WRITE ( 1 ,  1216) 

CALL  DPLHE ( D 1 ( 9 ) < P 1 !  9 ) , L 1 !  9 ) ,  H 1 !  9 ) ,  El (9) ) 

WRITE! 1, 1217) 

CALL  DPLHE (Dl< 4). PI (4), LI (4),  HI (4),  El (4)) 

WR I TE ( 1 ,  1218) 

CALL  DPLHE <D1  <5>.  PI  (5).  LI  (5),  HI  (3).  El<5> 

WR I TE ( 1 » 1219) 

CALL  DPLHE ( D1  !6),P1!6).L1!6),H1!6),E1!6>) 
FORMAT!//// 

*'  DYNAMIC  CAPACITY  AND  LIFE  IN  TERMS  OF'/ 

*'  OUTPUT  TORQUE  AND  SPEED'//) 

FORMAT!  '  RIGHT  INPUT  PINION'/) 

FORMAT!'  RIGHT  INPUT  BEARING  *1'/) 

FORMAT!'  RIGHT  INPUT  BEARING  #2'/> 

FORMAT!'  LEFT  INPUT  PINION'/) 

FORMAT!'  LEFT  INPUT  BEARING  #1'/) 

FORMAT!'  LEFT  INPUT  BEARING  #2'/) 

FORMAT!'  OUTPUT  GEAR'/) 

FORMAT!'  OUTPUT  BEARING  #1'/) 

FORMAT!'  OUTPUT  BEARING  #2'/) 

RETURN 

END 

SUBROUTINE  DPLHE !DCAP, PG,  LIFE,  HOUR,  EG) 

REAL  DCAP, PG, LIFE, HOUR,  EG 


3 


WRITE! 1, 1221 )DCAP, PG, LIFE, HOUR, EG 
1221  FORMAT! 


* ' 

DYNAMIC  CAPACITY 

',  F14.  4,  ' 

* ' 

LOAD  LIFE  EXPONENT 

',  F14.  4/ 

*  ' 

LIFE  IN  MILLION  OUTPUT  ROTATIONS 

',  F14.  4/ 

* ' 

LIFE  IN  HOURS 

',  FI 4.  4/ 

*  ' 

WEI BULL  EXPONENT 

',  F14.  4/) 

RETURN 

END 

SUBROUTINE  PLANCA! ISTEP, NCOMP, MG1,  NS, NPS, NPR,  NR, PHIS1,  PHIR1, 
IRS,  RPS,  RPR,  RR,  CB.  A,  V,  PB,  N,  EB,  FTT , 

2B1SM.  PS,  ES,  WDSM,  BlRM,  PR,  ER.  WDRM, 


3TI.  TOF,  SI.  SOF,  CS,  LS,  FS.  CR,  LR,  FR,  Dl.  LIO,  HI.  El. 
4LPLAN. HP LAN# EPLAN) 


REAL  NS.  NPS.  NPR.  NR,  N#  LS,  LR,  LSIO,  LPSIO,  LPRIO,  LPIO,  LBIO,  LPLAN 
REAL  NCOMP ( 5 ) , L 1 0 ( S ) # El ( 5 ) , Dl ( 5 ) , HI ( 5 ) , LR 10 


CALL  BEAR  ( MQ1 ,  C8,  A,  V,  PB#  PHIR1,  PHIS1#  RR,  RS.  RPR,  RPS,  N,  FTT, 

1  TI,  TOF,  SI,  SOF,  DB,  LBIO,  HB10) 

L 1 0 ( 1 ) =LB 1 0 
HI (1 )=HB10 
E1(1)*EB 
Dl ( 1 ) =DB 

CALL  SUN ( MO  1 ,  NS,  PHIS1,  B1SM,  PS,  ES,  RR,  RS,  RPR,  RPS.  N,  WDSM, 

1  TI,  TOF,  SI.  SOF.  CS,  LS,  FS,  DS,  LSIO,  HS10) 

L10(2)=LS10 
H1(2)=-HS10 
E1(2)»ES 
Dl ( 2 ) =DS 

CALL  RING(MG1,  NR,  PHIR1,  B1RM,  PR,  ER,  RR,  RS,  RPR,  RPS.  N,  WDRIf, 

1  TI,  TOF,  SI,  SOF,  CR,  LR,  FR,  DR,  LR10,  HR10) 

L10(3)*LR10 
HI (3)=HR10 
El (3 ) =ER 
Dl (3)=DR 

IF( ISTEP.  EQ.  5 ) GQT025 

CALL  PLANET  1  (MG1  >  ES,  PS,  ER,  PR,  RS,  RR,  RPS.  RPR.  TI,  TOF,  SI,  SOF, 
*  N,  NPR,  LS,  FS,  LR,  FR,  LPIO,  DP,  HP10) 

El ( 4  >  =ES 
LIO ( 4 ) =LP 10 
HI <4>=HP10 
Dl <4)-DP 
GO  TO  26 
CONTINUE 

CALL  PLANET2(MG1,  NPS,  LS,  FS,  PS,  ES,  RR,  RS,  RPR,  RPS,  N, 

1  TI,  TOF,  SI,  SOF,  CS,  DPS,  LPSIO,  HPS10) 

LIO ( 4 ) =LPS10 
HI ( 4 ) =HPS10 
El ( 4 ) *ES 
D1(4)=DPS 

CALL  PLANET3 ( MG1 . NPR, LR,  FR. PR,  ER,  RR, RS,  RPR,  RPS, N, 

1  TI,  TOF,  SI,  SOF,  CR,  DPR,  LPRIO,  HPR10) 


■> 


S6U 


AfiM 


m 


L10(3)«LPR10 
H1(3)-HPR10 
E1(3>-ER 
D1 (3)»DPR 
CONTINUE 

CALL  LIFECLIO,  ISTEP, El. NCOMP, LPLAN.  EPLAN ) 

HPLAN-LPLAN* 16666.  667/SOF 

RETURN 

END 


SUBROUTINE  BEAR  (NO  1 .  CB.  A,  V,  PB,  PHIR,  PHIS,  RR.  RS,  RPR.  RPS,  N,  FTT , 
►  TI,  TO,  SI.  SOF,  DB,  LBIO,  HBIO) 


BEAR  CALCULATES  THE  BASIC  DYNANIC  CAPACITY  OF  ONE  PLANET 
BEARING  AND  THE  LIO  LIFE  OF  THE  BEARING  FOR  THE  GIVEN  INPUT 
TORQUE  IN  TERNS  OF  SUN  REVOLUTIONS. 


REAL  A.  N,  V.  CB,  PB,  RR.  RS,  TI,  RPR,  RPS.  LBIO,  PHIR,  PHIS, 
1  TNPHIR, TNPHIS,  NG1 


C  THE  VARIABLES  PASSED  TO  THE  PROGRAN  ARE: 


CB — BASIC  DYNANIC  CAPACITY  OF  A  SINGLE  BEARING 

A — CONPOSITE  BEARING  LIFE  ADJUSTMENT  FACTOR 

PB — LOAD  LIFE  EXPONENT  OF  THE  BEARING 

RPR — PITCH  RADIUS  OF  PLANET  NESHING  WITH  THE  RING 

RPS — PITCH  RADIUS  OF  PLANET  MESHING  WITH  THE  SUN 

RR — PITCH  RADIUS  OF  THE  RING 

RS — PITCH  RADIUS  OF  THE  SUN 

TI — INPUT  TORQUE  TO  THE  SUN 

V — OUTER  RACE  ROTATION  LOAD  ADJUSTMENT  FACTOR 
PHIR — PRESSURE  ANGLE  OF  RING  MESH  RADIANS 
PHIS — PRESSURE  ANGLE  OF  SUN  MESH  RADIANS 
N — NUMBER  OF  PLANET  BEARINGS  IN  THE  TRANSMISSION 


C  THE  VARIABLES  PASSED  FROM  THE  PROGRAM  ARE: 


DB — BASIC  DYNAMIC  CAPACITY  OF  ONE  PLANET  BEARING 
LBIO — LIO  LIFE  OF  ONE  PLANET  BEARING  SUN  REVS 


C  CALCULATE  THE  TANGENTS  OF  THE  PRESSURE  ANGLES 
C 


o  n  n  r>  r>  n  noon  on  on  on  on  on  on  on  on 


TNPHIR=SIN(PHIR)/COS(PHIR> 

TNPHIS«SIN< PHIS) /COS (PHIS) 

FS:  FORCE  FROM  SUN  GEAR 
FS-TI/(N*RS) 

FR:  FORCE  FROM  RING  GEAR 
FR=RPS/RPR*FS 

FTT :  TOTAL  TANGENTIAL  FORCE 
FTT=FS+FR 

FTR:  TOTAL  RADIAL  FORCE 

FTR*FR*TNPHIR-FS*TNPHIS 

FB:  TOTAL  FORCE  ON  BEARING 
FB=V*SQRT ( FTT**2+FTR**2 ) 

AMGB:  LOAD  CYCLES  PER  INPUT  REVOLUTION 
AMGB=A*RPR/RR 

LB  10:  L10  LIFE  OF  ONE  PLANET  BEARING 
LB  1 0=AMGB /MG 1 * ( CB /FB ) **P  B 
HB10=LB1 0*1 6666.  667/SOF 

DB:  THE  BASIC  DYNAMIC  CAPACITY  OF  ONE  PLANET  BEARING 
DB«(AMGB/MG1  )*•*(  1.  O/PB  )  *  (CB*TO/FB  ) 

RETURN 

END 


SUBROUTINE  SUN(MG1, NS. PHIS. B1SM, PS. ES, RR, RS. RPR. RPS. N. WDSM. 
1  TI,  TO,  SI,  SOF,  CS,  LS,  FS,  DS,  LS10,  HS10) 


SUN  CALCULATES  THE  BASIC  DYNAMIC  CAPACITY  OF  THE  SUN  GEAR  AND 
THE  L10  LIFE  OF  THE  SUN  GEAR  FOR  THE  GIVEN  INPUT  TORQUE. 


C 


REAL  N,  CS,  DS,  ES,  NS,  PS.  RR,  RS,  TI,  RPR,  RPS,  B1SM,  LS10, 
1  PHIS,  WDSM,  LS,  MG1 


n  n  n  n  no  no  on 


C  VARIABLES  WHICH  ARE  PASSED  TO  THE  PROGRAM: 

C  B ISM-MATERIAL  CONSTANT  FOR  THE  SUN-PLANET  MESH 

C  ES — WE I BULL  EXPONENT  OF  THE  SUN  MESH 

C  N — NUMBER  OF  PLANETS 

C  NS — NUMBER  OF  TEETH  ON  SUN 

C  PHIS — PRESSURE  ANGLE  OF  THE  SUN  MESH  RADIANS 

C  PS — LOAD  LIFE  FACTOR  QF  ONE  TOOTH  OF  THE  MESH 

C  RPR — PITCH  RADIUS  OF  THE  PLANET  MESHING  WITH  RING 

C  RPS — PITCH  RADIUS  OF  THE  PLANET  MESHING  WITH  SUN 

C  RR — PITCH  RADIUS  OF  THE  RING 

C  RS — PITCH  RADIUS  OF  THE  SUN 

C  TI — INPUT  TORQUE  TO  THE  SUN 

C  WDSM — EFFECTIVE  FACE  WIDTH  OF  THE  MESH 

C  VARIABLES  WHICH  ARE  PASSED  FROM  PROGRAM: 

C  DS — BASIC  DYNAMIC  CAPACITY  OF  THE  SUN  GEAR 

C  LSIO — LIO  LIFE  OF  THE  SUN  GEAR  SUN  REVS 

C  CS — BASIC  DYNAMIC  CAPACITY  OF  ONE  TOOTH  OF  THE  MESH 

C 
C 

C  CALCULATE  THE  CAPACITY  OF  ONE  TOOTH  IN  THE  SUN  MESH 
C 

CS=BASCAP(RS,  RPS, PHIS, WDSM, B1SM) 

FS:  FORCE  ON  SUN  GEAR 
FS=TI/(N*RS) 

LS:  LIFE  OF  ONE  TOOTH  ON  THE  SUN  GEAR 
LS= ( CS/FS ) **PS 

AMGS:  LOAD  CYCLES  PER  INPUT  REVOLUTION 
AMGS= ( RS*RPR ) / ( N*RR*RPS ) 

LSIO  LIO  LIFE  OF  THE  SUN  GEAR 

LS10=(1. /NS ) ** ( 1 . /ES ) *AMGS/MG1 *LS 
HS1 0=1 6666  667*LS 1 O/SOF 

DS:  BASIC  DYNAMIC  CAPACITY  OF  THE  SUN  GEAR 

DS=  ( 1 .  O/NS  >  *•*  (  1 . 0/ES/PS)*<  AMGS /MG  1  )  **  C 1 .  /PS  )  *  ( CS/FS*TO ) 
RETURN 
END 


on  on  on  onoooooooonnnooooonnooon  noooon 


SUBROUTINE  PLANET1 (MGl .  ES,  PS,  ER,  PR,  RS,  RR,  RPS,  RPR,  TI,  TO,  SI,  SOF, 
*  N,  NP,  LS,  FS,  LR.  FR,  LP10,  DP,  HP10) 


PLANET  CALCULATES  THE  BASIC  DYNAMIC  CAPACITY  OF  A  PLANET  CEAR 
AND  THE  LIO  LIFE  OF  A  PLANET  CEAR  FOR  THE  GIVEN  INPUT  TORQUE. 


REAL  N,  NP,  LP 10,  LS,  LR,  LP,  MCI 


VARIABLES  WHICH  ARE  PASSED  TO  THE  PROGRAM: 

ES — WE I BULL  EXPONENT  OF  THE  PLANET-SUN  MESH 
PS — LOAD  LIFE  FACTOR  OF  THE  PLANET-SUN  MESH 
ER — WE I BULL  EXPONENT  OF  THE  PLANET-RINO  MESH 
PR — LOAD  LIFE  FACTOR  OF  THE  PLANET-RINO  MESH 
RS — PITCH  RADIUS  OF  THE  SUN 
RR — PITCH  RADIUS  OF  THE  RING 

RPS — PITCH  RADIUS  OF  THE  PLANET  MESHING  WITH  SUN 
RPR— PITCH  RADIUS  OF  THE  PLANET  MESHING  WITH  RING 
TI  — INPUT  TORQUE  TO  THE  SUN  LB-IN 
N— NUMBER  OF  PLANETS 
NP— NUMBER  OF  TEETH  ON  THE  PLANET 
LS — LIFE  OF  ONE  TOOTH  IN  THE  PLANET-SUN  MESH 
FS — FORCE  ON  ONE  TOOTH  IN  THE  PLANET-SUN  MESH 
LR — LIFE  OF  ONE  TOOTH  IN  THE  PLANET-RING  MESH 
FR — FORCE  ON  ONE  TOOTH  IN  THE  PLANET-RING  MESH 
VARIABLES  WHICH  ARE  PASSED  FROM  PROGRAM: 

DP — BASIC  DYNAMIC  CAPACITY  OF  THE  PLANET 
LP 10 — LIO  LIFE  OF  THE  PLANET  SUN  REVS 


AMGP :  LOAD  CYCLES  PER  INPUT  REVOLUTION 
AMGP-RPR/RR 

LP:  LIFE  OF  ONE  TOOTH  OF  PLANET  DUE  TO  DUAL  LOADING 
LP-(LS*LR)/(LS**ES+LR**ES)**( l.  /ES) 

LP 10:  LIFE  OF  STEPPED  PLANET  GEAR 

LP 10“ ( 1  0/NP>**< 1. O/ES ) *AMGP/MG1*LP 
HP  10-16666  667*LP 10/S0F 

DP:  DYNAMIC  CAPACITY  OF  PLANET  GEAR 

DP-  (  1.  O/NP  )  *■*  (  1  O/ES /PS  )  *  (  AMGP /MG  1  >**(1.  O/PS) 
1*LP**< 1  O/PS ) *T0 


,-jcj  on  ooooooooonooonnonooo  nnnoonn 


: 


RETURN 

END 

SUBROUTINE  PLANET2(MG1,  NP,  LS,  FS,  PS#  ES.  RR.  RS,  RPR.  RPS.  N. 
1  TI.  TO#  SI.  SOF.  CS.  DPS.  LPS10.  HPSIO) 


PLANET2  CALCULATES  THE  BASIC  DYNAMIC  CAPACITY  OF  THE 
PANET-SUN  GEAR  AND  THE  LIO  LIFE  OF  THE  PANET-SUN  GEAR 
FOR  THE  GIVEN  INPUT  TORQUE. 


REAL  N.  CS,  DPS.  ES.  NP,  PS,  RR,  RS,  TI,  RPR,  RPS,  LPSIO, 
1  LS,  MG1 


VARIABLES  WHICH  ARE  PASSED  TO  THE  PROGRAM: 

LS — LIFE  OF  ONE  TOOTH  IN  THE  PLANET-SUN  MESH 
FS — FORCE  ON  ONE  TOOTH  IN  THE  PLANET-SUN  MESH 
ES— WE  I  BULL  EXPONENT  OF  THE  SUN  MESH 
N — NUMBER  OF  PLANETS 
NS — NUMBER  OF  TEETH  ON  SUN 

PS— LOAD  LIFE  FACTOR  OF  ONE  TOOTH  OF  THE  MESH 
RPR— PITCH  RADIUS  OF  THE  PLANET  MESHING  WITH  RING 
RPS — PITCH  RADIUS  OF  THE  PLANET  MESHING  WITH  SUN 
RR — PITCH  RADIUS  OF  THE  RING 
RS — PITCH  RADIUS  OF  THE  SUN 
TI — INPUT  TORQUE  TO  THE  SUN 
VARIABLES  WHICH  ARE  PASSED  FROM  PROGRAM: 

DS — BASIC  DYNAMIC  CAPACITY  OF  THE  SUN  GEAR 
LSIO— LIO  LIFE  OF  THE  SUN  GEAR  SUN  REVS 


AMGP:  LOAD  CYCLES  PER  INPUT  REVOLUTION 
AMGP=RPR/RR 

LS’.O:  LIO  LIFE  OF  THE  SUN  GEAR 

LPSIO* ( 1 .  /NP  ) *■* (  1 .  /ES)*AMGP/MC1*LS 
HPS10*LPS10*16666. 667/SOF 

DS:  BASIC  DYNAMIC  CAPACITY  OF  THE  SUN  GEAR 

DPS*( 1. O/NP )**< 1  O/ES/PS ) * ( AMGP /MG 1 ) ** ( 1 . /PS ) * ( CS/FS*TO ) 

RETURN 

END 


on  on  no  n n n n n n n n n n n n n n n n n o n n  nnnnnnn 


SUBROUTINE  PLANET3<M<51<  NP<  LR.  FR,  PR,  ER,  RR,  RS,  RPR,  RPS,  N. 
1  TI-  TO,  SI,  SOF,  CR,  DPR,  LPR10,  HPRIO) 


PLANET3  CALCULATES  THE  BASIC  DYNAMIC  CAPACITY  OF  THE 
PLANET-RING  GEAR  AND  THE  LIO  LIFE  OF  THE  PLANET-RING 
GEAR  FOR  THE  GIVEN  INPUT  TORQUE. 


REAL  N,  CR,  DR,  ER,  NP,  PR,  RR,  RS,  TI,  RPR,  RPS,  LPRIO. 
1  LR,  MG1 


VARIABLES  WHICH  ARE  PASSED  TO  THE  PROGRAM: 

LR — LIFE  OF  ONE  TOOTH  IN  THE  PLANET-RING  MESH 
FR — FORCE  ON  ONE  TOOTH  IN  THE  PLANET-RING  MESH 
ER — WE 1 BULL  EXPONENT  OF  THE  RING  MESH 
NP — NUMBER  OF  TEETH  ON  ONE  PLANET 
NR — NUMBER  OF  TEETH  ON  RING 

PR — LOAD  LIFE  FACTOR  OF  ONE  TOOTH  OF  THE  MESH 
RPR— PITCH  RADIUS  OF  THE  PLANET  MESHING  WITH  RING 
RPS — PITCH  RADIUS  OF  THE  PLANET  MESHING  WITH  SUN 
RR — PITCH  RADIUS  OF  THE  RING 
RS — PITCH  RADIUS  OF  THE  SUN 
TI — INPUT  TORQUE  TO  THE  SUN 
VARIABLES  WHICH  ARE  PASSED  FROM  PROGRAM: 

DPR — BASIC  DYNAMIC  CAPACITY  OF  THE  RING  GEAR 
LPRIO — LIO  LIFE  OF  THE  RING  GEAR  SUN  REVS 


AMGP :  LOAD  CYCLES  PER  INPUT  REVOLUTION 
AMGP*RPR/RR 

LR 1 0 :  LIO  LIFE  OF  THE  RING  GEAR 

LPR10»<  1.  /NP  ) **  <  1 .  /ER  )  *AMGP/MG1*LR 
HPR 10*LPR 10*16666  667/SOF 

DR:  THE  BASIC  DYNAMIC  CAPACITY  OF  THE  RING  GEAR 

DPR*  < 1 .  /NP ) **  < 1 .  /ER/PR )*< AMGP/MG1 )**< 1.  /PR ) *CR*TO/FR 

RETURN 

END 


SUBROUTINE  R ING < MG  1 ,  NR .  PHIR,  B IRM,  PR,  ER,  RR,  RS,  RPR,  RPS,  N,  WDRM, 
1  T  I,  TO,  SI,  SOF,  CR,  LR,  FR,  DR,  LR10,  HR  10) 


Ci  Cl  (1  Cl  Cl  Cl  Cl  Cl  CICICICICICICICICICICICICICICICICICICICICICICICI  Cl  Cl  Cl  Cl  Cl  Cl 


RING  CALCULATES  THE  BASIC  DYNAMIC  CAPACITY  OF  THE  RING  GEAR  AND 
THE  LIO  LIFE  OF  THE  RING  GEAR  FOR  THE  GIVEN  INPUT  TORQUE. 


REAL  N,  CR,  DR,  ER,  NR,  PR,  RR,  RS,  TI,  RPR,  RPS, B1RM, LRIO, 
1  PHIR,  WDRM,  LR,  MG1 


VARIABLES  WHICH  ARE  PASSED  TO  THE  PROGRAM: 

B1RM — MATERIAL  CONSTANT  OF  THE  RING-PLANET  MESH 
ER — WE I BULL  EXPONENT  OF  THE  RING  MESH 
NP — NUMBER  OF  TEETH  ON  ONE  PLANET 
NR — NUMBER  OF  TEETH  ON  RING 

PHIR — PRESSURE  ANGLE  OF  THE  RING  MESH  RADIANS 
PR — LOAD  LIFE  FACTOR  OF  ONE  TOOTH  OF  THE  MESH 
RPR — PITCH  RADIUS  OF  THE  PLANET  MESHING  WITH  RING 
RPS — PITCH  RADIUS  OF  THE  PLANET  MESHING  WITH  SUN 
RR — PITCH  RADIUS  OF  THE  RING 
RS — PITCH  RADIUS  OF  THE  SUN 
T I  — INPUT  TORQUE  TO  THE  SUN 
WDRM— EFFECTIVE  FACE  WIDTH  OF  THE  GEARS 
VARIABLES  WHICH  ARE  PASSED  FROM  PROGRAM: 

DR — BASIC  DYNAMIC  CAPACITY  OF  THE  RING  GEAR 
LRIO — LIO  LIFE  OF  THE  RING  GEAR  SUN  REVS 

CR — BASIC  DYNAMIC  CAPACITY  OF  ONE  TOOTH  OF  THE  RING  MESH 


CALCULATE  THE  CAPACITY  OF  ONE  TOOTH  IN  THE  RING  MESH 

THE  -RR  IN  FUNCTION  BASCAP  INDICATES  AN  INTERNAL  GEAR  MESH. 

CR»BASCAP(RPR, -RR, PHIR, WDRM,  B1RM) 

FR:  FORCE  ON  THE  RING  GEAR 
FR=RPS*TI / ( RPR*RS*N ) 

LR:  LIFE  OF  ONE  TOOTH  ON  THE  RING  GERA 
LR*(CR/FR)**PR 

AMGR:  LOAD  CYCLES  PER  INPUT  REVOLUTION 
AMGR»1.  /N 

LRIO.  LIO  LIFE  OF  THE  RING  GEAR 

LRiO*< 1  /NR  >**(  1  /ER ) * AMGR /MG I *LR 
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HR 1 0*LR 1 0* 1 6666 .  667/SOF 
C 

C  DR:  THE  BASIC  DYNAMIC  CAPACITY  OF  THE  RING  GEAR 

DR«(1.  /NR)**< 1.  /ER/PR ) * ( AMGR/MG1 )#*(  1.  /PR >*CR*TO/FR 
RETURN 
END 
C 
C 

SUBROUTINE  PLANIN<CB,  A,  V, EB, PB, N.  NCOMP,  PDS, PDR,  NS,  PHIS.  PHIS1, 
1PHIR,  PHIR1,  WDSM,  ES,  PS,  B1SM,  ISTEP,  NPS,  NPR,  NR,  WDRM,  ER,  PR,  B1RM, 
2RPR,  RPS,  RR,  RS ) 

CHARACTER*9  DATAFILE 
REAL  N,  NC0MP(5),  NS,  NPS,  NPR,  NR 
INTEGER  NO, YES, ANSWER 
PARAMETER  (N0» 'NO ' , YES* ' YES ' ) 

WRITEd,  300) 

300  FORMAT ( /  /  '  PLANETARY  GEAR  UNIT  INPUTS'//) 

WRITEd.  999) 

999  FORMAT ('DO  YOU  WISH  TO  USE  A  DATA  FILE  (YES  OR  NO)') 

READd,  110)  ANSWER 
IF (ANSWER.  Ed.  NO) GO  TO  301 
WRITEd,  302) 

302  FORMAT (  'WHAT  IS  THE  NAME  OF  THE  INPUT  FILE') 

READ ( 1 , 503 ) D AT AF I LE 

303  FORMAT ( A ) 

OPEN  (UN  I  T=»  36,  F I  LE=DAT  AF  I  LE ,  STATUS* 'UNKNOWN  ' ) 

NRE-56 
GO  TO  500 

301  NRE=1 
500  CONTINUE 
C 

C 

C 

WRITEd,  1000) 

READ(NRE, *>CB 
WRITEd,  1010) 

READ(NRE, *>A 
WRITEd,  1020) 

READ(NRE, *)V 
WRITEd,  1030) 

READ(NRE» *>EB 
WRITEd,  1040) 

READ(NRE,  *)PB 
WRITEd,  1030) 

READ(NRE, *)N 


NCOMP  ( 1 )  »N 
NC0MP(2)-1. 

NCOMP < 3) *1. 

NCOMP (4)-N 
NCOMP ( 3  )*N 
WRITE(1,  1060) 

READ (NRE, 110) ANSWER 

IF (ANSWER.  EQ.  YES)WRITE(1.  1070) 

IF < ANSWER.  Ed.  N0)WRITE(1.  1080) 
READ (NRE,  *)PDS 
IF (ANSWER.  EQ.  YES)PDR-PDS 
IF (ANSWER.  EQ.  NO ) READ ( NRE.  * ) PDR 
WRITE ( 1« 1090) 

READ ( NRE» * ) NS 
WRITEd,  1100) 

READ (NRE, 1 10) ANSWER 
1 F ( ANSWER .  EQ.  YES)WRITE(1,  1110) 
*F(ANSWER.  EQ.  NO ) WR I TE ( 1 »  1120) 
READ(NRE< *)PHIS 
I F ( ANSWER .  EQ.  YES)PHIR-PHIS 
I F ( ANSWER .  EQ.  NO) READ (NRE, *)PHIR 
PHIS1-PHIS*3.  141 3927/ 180.  0 
PHIR1*PHIR*3.  1413927/180.  0 
WRITEd,  1130) 

READ ( NRE»  * ) WDSM 
WRITEd.  1140) 

READ(NRE. *)ES 
WRITEd.  1130) 

READ(NRE. *)PS 
WRITEd.  1160) 

READ(NRE. *)B1SM 
WRITEd.  1170) 

READ(NRE> 110) ANSWER 
ISTEP=4 

IF( ANSWER.  EQ.  N0)WRITE(1.  1180) 

I F ( ANSWER .  EQ.  YES)WRITE(1.  1190) 
IF (ANSWER.  EQ.  YES)ISTEP-3 
READ(NRE>  *)NPS 
IF (ANSWER.  EQ.  NO)NPR*NPS 
IF (ANSWER. EQ.  YES) READ (NRE. *)NPR 
WRITEd.  1200) 

READ (NRE.  *)NR 
WRITEd,  1210) 

READ (NRE.  #)WDRM 
WRITEd.  1220) 


non  non 


READ(NRE. * )ER 
WR  X  TE ( 1 > 1230) 
READ(NRE, *)PR 
WRITE(1. 1240) 
READ(NRE, * ) B 1RM 
CLOSE (56) 


RPR-NPR/2.  0/PDR 
RPS=NPS/2.  0/PDS 
RR=NR/2.  0/PDR 
RS»NS/2.  0/PDS 

INPUT  WRITE  FORMATS 


110  FORMAT (1A4) 

1000  FORMAT (20X,  'PLANETARY  TRANSMISSION  RELIABILTY  ANALYSIS'//. 

1  20X. '(ALL  NUMERICAL  INPUT  MUST  BE  IN  F-FORMAT) '//. 

2  5X<  'WHAT  IS  THE  BASIC  DYNAMIC  CAPACITY  OF  ONE  PLANET', 

3  '  BEARING?  (LB )  ' ) 

1010  FORMAT ( 5X. 'WHAT  IS  THE  COMPOSITE  LIFE  ADJUSTMENT  FACTOR?') 

1020  FORMAT ( 5X,  'WHAT  IS  THE  OUTER  RACE  ROTATION  FACTOR?') 

1030  FORMATOX,  'WHAT  IS  THE  WE  I  BULL  FACTOR  FOR  THE  BEARINGS?') 

1040  FORMAT ( 5X. 'WHAT  IS  THE  LOAD-LIFE  FACTOR  FOR  THE  BEARINGS?') 

1050  FORMAT ( 5X, 'HOW  MANY  PLANET  BEARINGS  ARE  IN  THE  TRANSMISSION?') 

1060  FORMAT ( 5X, 'IS  THE  DIAMETRAL  PITCH  THE  SAME  FOR  BOTH  MESHES?') 

1070  FORMAT ( 5X,  'WHAT  IS  THE  DIAMETRAL  PITCH  OF  THE  TRANSMISSION?', 

1  '  (TEETH/IN)') 

1080  FORMAT ( 5X, 'ENTER  THE  DIAMETRAL  PITCH  OF  THE  SUN  MESH  FIRST,  /, 

1  5X, 'THEN,  ENTER  THE  DIAMETRAL  PITCH  OF  THE  RING  MESH.  ', 

2  '  (TEETH/ IN) ' ) 

1090  FORMAT ( 5X, 'HOW  MANY  TEETH  DOES  THE  SUN  GEAR  HAVE  ON  IT?') 

1100  FORMAT (5X, 'IS  THE  PRESSURE  ANGLE  FOR  THE  SUN  MESH  AND'/, 

1  5X,  'THE  RING  MESH  THE  SAME?') 

1110  FORMAT ( 5X, 'WHAT  IS  THE  PRESSURE  ANGLE?  (DEG)') 

1120  FORMAT (5X,  'ENTER  THE  PRESSURE  ANGLE  FOR  THE  SUN  MESH  FIRST,  '/, 

1  5X, 'THEN  ENTER  THE  PRESSURE  ANGLE  OF  THE  RING  MESH.  (DEG)') 

1130  FORMAT ( 5X,  'WHAT  IS  THE  FACE  WIDTH  OF  THE  SUN  MESH?  (IN)') 

1140  FORMAT ( 5X, 'WHAT  IS  THE  WE I BULL  EXPONENT  OF  THE  SUN  MESH?') 

1150  FORMAT (5X, 'WHAT  IS  THE  LOAD-LIFE  FACTOR  OF  THE  SUN  MESH?') 

1160  FORMAT ( 5X, 'WHAT  IS  THE  MATERIAL  CONSTANT  OF  THE  SUN  MESH?  (PSI>'> 

1170  FORMAT ( 5X. 'DOES  THE  TRANSMISSION  HAVE  STEPPED  PLANETS?') 

1180  FORMAT ( 5X, 'HOW  MANY  TEETH  DOES  ONE  PLANET  GEAR  HAVE?') 

1190  FORMAT ( 5X,  'ENTER  THE  NUMBER  OF  TEETH  ON  ONE  PLANET  MESHED'/, 


1  5X, 'WITH  THE  SUN,  THEN  ENTER  THE  NUMBER  OF  TEETH  ON  THE'/, 

2  5X,  'PLANET  MESHED  WITH  THE  RING.  ') 

1200  FORMAT  <  5X,  'HOW  MANY  TEETH  ARE  ON  THE  RING  GEAR?') 

1210  FORMAT ( 5X,  'WHAT  IS  THE  FACE  WIDTH  OF  THE  RING  GEAR  MESH?  (IN)') 

1220  FORMAT ( 5X,  'WHAT  IS  THE  WE I BULL  EXPONENT  OF  THE  RING  GEAR  MESH?') 

1230  FORMAT  <  5X,  'WHAT  IS  THE  LOAD-LIFE  FACTOR  OF  THE  RING  GEAR  MESH?') 

1240  FORMAT <5X, 'WHAT  IS  THE  MATERIAL  CONSTANT  OF  THE  RING  GEAR  MESH?', 

1  '  (TEETH/IN)') 

RETURN 

END 

C 

SUBROUTINE  PLANOT  (  I  STEP,  N,  V,  CB,  FB.  NS,  PDS,  PHIS,  WDSM,  B1SM,  FS, 

1NR,  PDR,  PHIR,  WDRM,  B1RM,  FR,  NP,  NPS,  NPR,  TI,  TOF,  SI,  SOF,  FTT , 

2D1,  PI,  LI,  HI,  El ) 

REAL  N,  NS,  NR,  NP,  NPS,  NPR,  D1 ( 5 ) ,  P 1 ( 5 ) , LI ( 3 ) , El ( S ) , HI ( 3 ) 

WRITE( 1, 5049 )TI, TOF, SI, SOF 
WRITE ( 1 , 5002) 

DB1*D1 ( 1 ) *FTT /TOF 

WRITE (  1 ,  5051  )N,  U,  CB,  DB1,  FTT 

WRITE ( 1, 5000) 

DS1=D1 ( 2 ) +FS/TOF 

WRITE(  1,  5050 ) NS,  PDS,  PHIS,  WDSM,  B1SM,  DS1,  FS 
WRITE< 1, 5001 ) 

DR1*D1 ( 3 ) *FR/TOF 

WRITE< 1,  5050 ) NR , PDR, PHIR, WDRM, B1RM, DR  1 , FR 
WRITE  < 1 ,  5003) 

DP 1=D1 ( 4 ) *FS/TQF 
IF( 1ST EP  EG.  5 ) G0T01 0 

WR I TE (  1 ,  5050) NPS,  PDS,  PHIS,  WDSM,  B1SM,  DPI,  FS 
G0TQ20 

10  DPS1=D1 (4)*FS/T0F 

WRTTEt 1, 5004) 

WR  I  TE (  1 ,  5050) NPS,  PDS,  PHIS,  WDSM,  B1SM,  DPS1,  FS 
DPR1=D1 (5)*FR/T0F 
WR I TE ( 1 , 5005) 

WRITE ( 1 , 5050 ) NPR , PDR, PHIR,  WDRM, B1RM, DPR1, FR 
20  CONTINUE 

WRITE ( 1 , 4999) 

WRITE( 1, 5002) 

CALL  DPLHE <  D1 < 1 ) , P 1 ( 1 )  -  L 1 ( 1 ) , HI ( 1 ) , El ( 1 ) ) 

WRITE  < 1,  5000) 

CALL  DPLHE  <D1  (2) .  P1<2),L1<2),H1(2>,E1<2)> 

WR I TE ( 1 , 5001 ) 

CALL  DPLHE (D1  (3),P1(3),L1(3),H1(3),E1(3)) 

IF ( ISTEP.  EQ  5 ) GOTO  1 1 
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WRITEd, 5003) 

CALL  DPLHE(D1  (4)«P1(4),L1(4),H1(4),E1(4)  ) 

GO TO 21 

11  WRITEd,  5004) 

CALL  DPLHE(D1(4). PI (4),  LI  (4),  HI (4).  El<4) ) 

WRITEd,  5005) 

CALL  DPLHE(D1(5).  Pl<5)i  LI (5), HI ( 5) » El (5) ) 

21  CONTINUE 

4998  FORMAT (//// 

1'  PLANETARY  GEAR  UNIT'//) 

4999  FORMAT ( //// 

*'  DYNAMIC  CAPACITY  AND  LIFE  IN  TERMS  OF'/ 

* '  OUTPUT  TORQUE  AND  SPEED'//) 

5000  FORMAT ( '  SUN  GEAR ' / ) 

5001  FORMAT ('  RING  GEAR'/) 

5002  FORMAT ('  PLANET  BEARING'/) 

5003  FORMAT ('  PLANET  GEAR '/ ) 

5004  FORMAT  <  '  PLANET-SUN  GEAR ' / ) 

5005  FORMAT ( '  PLANET-RING  GEAR'/) 

5049  FORMAT (/// 


1'  INPUT  TORQUE . ',F14.  5,  '  LB-IN'/ 

2'  OUTPUT  TORQUE . ',F14.  5,  '  LB-IN'/ 

3'  INPUT  SPEED . ',F14.  5,  '  RPM'/ 

4'  OUTUT  SPEED . ',F14.  5,  '  RPM'/) 

5050  FORMAT </ 

1'  NUMBER  OF  TEETH . ',F14.  5/ 

2'  PITCH  OF  THE  MESH . ',F14.  5/ 

3'  PRESSURE  ANGLE . ',F14.  5,  '  DEG'/ 

4'  FACE  WIDTH . ',F14.  5,  '  IN'/ 

5'  MATERIAL  CONSTANT  OF  THE  MESH . '-F14.  5.  '  PSI'/ 

b'  DYNAMIC  CAPACITY . ',F14.  5,  '  LBS'/ 

7'  FORCE  ON  GEAR  TOOTH . ',F14.  5,  '  LBS'/) 

5051  FORMAT (/ 

l  '  NUMBER  OF  PLANETS . '.  FI 4.  5,  / 

2'  ROTATIONAL  FACTOR . ',  F14.  5,  / 

3'  DYNAMIC  CAPACITY  (CATALOG  VALUE) . ',F14.  5,  '  LBS'/ 

4'  DYNAMIC  CAPACITY  (SYSTEM  VALUE) . ',F14.  5,  '  LBS'/ 

5'  TOTAL  FORCE . ',F14.  5,  '  LBS'/) 


RETURN 

END 

SUBROUTINE  SPBVCA( 

1TI.  TOF,  SI,  SOF,  MO,  M01,  NP,  NO, 

2 AO,  GAMMA1,  ROT,  SPR,  PHE1,  PHSU,  ZZ1, 

3PTL,  A P,  BP,  RP,  OTL,  AO,  BO,  RO, 

4ITYPEP1,  RFP1,  NBP1,  DPI,  ACPI,  BDCAP1,  AK1 ,  EGP1,  ADJP1, 
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5ITYPEP2,  RFP2,  NBP2<  DP2<  ACP2,  BDCAP2<  AK2<  EGP2,  i  DUP2, 

6ITYPEG1 . RFG1 » NBQ1.  DOl,  ACG1.  BDCAGli  AK3,  EGG1.  ADJG1 . 

7ITYPE02,  RFG2,  NBG2.  DG2.  ACG2.  BDCAG2.  AK4.  EGG2,  ADJG2, 

8F,  E.  PG,  EG.  RPD.  RGD. 

9PXP, PYP. PZP, TOTFOR, PXG, PYG.  PZG.  TOTFOR, 

1R1XP. R1YP. R1ZP. R2XP,  R2YP,  R2ZP. 

2R1XG,  R1YG.  R1ZG.  R2XG.  R2YG.  R2ZG. 

3L10P1,  H10P1.  TOFQRP 1 .  PGP1.  BDCAPIO.  BDCAPIOT. 

4L10P2.  H10P2.  T0F0RP2.  PGP2.  BDCAP20.  BDCAP20T. 

9L10G1. H10G1 i TOFORG1. PGG1. B DC AGIO. BDCAGIOT , 

6L10G2, H10G2. T0F0RG2. PGG2. BDCA020. BDCAG20T. 

7LP10,  HP  10.  DCAP,  DC APT. 

8LG10.  HG10.  DC  AG.  DCAGT. 

9LSB. HSB.  ESB ) 

INTEGER  PTL. GTL 

REAL  L10P1. L10P2. L10G1. L10G2. LP10. LG10.  LSB.  LL<6 ) .  EE<6> .  NCOMP (6) 
REAL  MG.  MG  1 .  NP .  NG.  NBP1.  NBP2.  NBG1.  NB02 
DATA  NCOMP  / 1 .  .  1.  ,  1.  ,  1.  ,  1.  ,  1.  / 

CALCULATION  OF  THE  LOADS  TRANSMITTED  FROM  THE  PINION 

CALL  GPSPR(TI, AO, F, GAMMA 1 , ROT, SPR, PHE1,  PHSI1.  PXP,  PYP,  PZP) 
TOTFOR=SGRT ( PXP**2+PYP**2+PZP**2 ) 

CALCULATION  OF  THE  LOADS  TRANSMITTED  TO  THE  GEAR  FROM  EACH  PINION 

TOUT»MG*TI 
ROT 1 =-RQT 
SPR1=SPR 

CALL  GPSPR  <  TOUT .  AO,  F,  ZZ1,  R0T1,  SPR1,  PHE1,  PHSI1,  PXG,  PYG,  PZG) 

CHECK  CASE  FOR  BEARING  POSITION  AND  CALCULATE  THE  LOADS 
ON  THE  BEARINGS  TRANSMITTED  FROM  THE  RIGHT  PINION 

IF ( PTL.  EQ.  2 )G0  TO  18 
R1XP-PXP 
R2XP*0.  0 
GO  TO  19 
R1XP-0.  0 
R2XP*PXP 
CONTINUE 

CALL  BLC1  (PXP, PYP, PZP, AP, BP, RP, R1YP,  R1ZP,  R2YP,  R2ZP ) 

CHECK  CASE  FOR  BEARING  POSITION  CALCULATE  THE  LOADS 

ON  THE  BEARINGS  TRANSMITTED  FROM  THE  GEAR  DUE  TO  THE  PINION 


PH 


IF ( GTL.  EQ.  2)00  TO  22 
R1XG-PXG 
R2XG-0.  0 
GO  TO  23 
R1XG-0.  0 
R2XG=PXG 
CONTINUE 

CALL  BLC 1  (PXG,  PYG.  PZG,  AG.  BG,  RO.  R1YG.  R1ZG,  R2YC,  R2ZG) 


CALCULATE  THE  LIFE  OF  PINION  BEARING  #1 


CALL  BDCAP< ITYPEP1, R1XP, R1YP, R1ZP. RFP1. NBP1. DPI. ACPI. SOF,  ADJP1 
*,  BDCAP1,  L10P1,  HI  OP  1 1  MG.  MG1.  AK1.  T0F0RP1,  PGP1.  BDCAP10) 

BDC AP 1 OT *BDC AP 1 Q*TOF/TOFORP 1 

LL<2)*L10P1 

EE  ( 2 )  **EGP  1 


CALCULATE  THE  LIFE  OF  PINION  BEARING  #2 


CALL  BDCAP ( ITYPEP2. R2XP, R2YP. R2ZP. RFP2, NBP2. DP2. ACP2.  SOF.  ADJP2 
*.  BDCAP2.  L10P2,  H10P2.  MG,  MG1,  AK2,  T0F0RP2,  PGP2,  BDCAP20) 

BDC  AP20T  =*BDC  AP20*TQF /T0F0RP2 

LL(3)-L10P2 

EE(3)=EGP2 


CALCULATE  THE  LIFE  OF  GEAR  BEARING  #1 


CALL  BDCAPC ITYPEG1. R1XG, R1YG, R1ZG. RFG1 . NBG1, DG1 ,  ACG1,  SOF,  ADJG1 
*,  BDCAGl.  L10G1,  H10G1,  1.  ,  MGI ,  AK3,  T0F0RG1,  PGG1,  BDCAG10) 
BDCAG10T»BDCAG10*T0F/T0F0RG1 
LL(5)*L10G1 
EE ( 5 ) “EGG1 


CALCULATE  THE  LIFE  OF  GEAR  BEARING  #2 


CALL  BDCAP ( ITYPEG2, R2XG. R2YG, R2ZG, RFG2, NBG2, DG2, ACG2,  SOF,  ADJG2 
#,  BDCAG2,  L10G2.  H10G2.  1.  ,  MGl,  AK4,  TQF0RG2,  PGG2,  BDCAC20 ) 
BDCA020T»BDCAG20*T0F/T0F0RG2 
LL(6)-L10G2 
EE<6)»EG02 


CALCULATE  THE  LIFE  OF  THE  GEAR 


CALL  SET <PHE1»  F,  E,  MO.  MOl.  NP.  NO,  SOF.  LPIO,  HPIO.  LGIO, 
♦HGIO,  PO,  EO,  TOTFOR,  RPD,  ROD,  DCAP,  DCAO,  TOTFOR ) 
DCAPT=*DCAP#TOF/TOTFOR 
DCAOT*DCAC*TOF/TOTFOR 
LL(1)»LP10 
LL ( 4 ) *LG10 
EE( 1 )*EO 
EE ( 4 ) =EG 

C - 

C  CALCULATE  THE  LIFE  OF  THE  TRANSMISSION 

C - 

CALL  LIFE(LL, 6, EE, NCOMP, LSB, ESB  > 

HSB*LSB# 16666.  667/SOF 

RETURN 

END 

c - 


c- 

c 

c- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 


SUBROUTINE  SET < PHE,  F,  E,  MG,  MG1,  NP,  NO,  SPEED2,  LPIO,  HPIO,  LGIO 
*,  HGIO,  PG.  EG,  FOR,  Rl.  R2,  DCAP,  DCAG,  FE) 

CALCULATION  OF  THE  LIFE  OF  THE  PINION  AND  GEAR  MESH 


INPUTS 

PHE 

F 

E 

MG 

NP 

NG 


-PRESSURE  ANGLE  OF  THE  MESH  (RADIANS) 
-FACE  WIDTH  (IN) 

-MESH  MATERIAL  CONSTANT  (PSI) 

-GEAR  RATIO 

-NUMBER  OF  TEETH  OF  THE  PINION 
-NUMBER  OF  TEETH  OF  THE  GEAR 


SPEED2-SPEED  OF  OUTPUT  SHAFT 


PG 

EG 

FOR 

Rl 

R2 

OUTPUT 

LPIO 

HPIO 

LGIO 

HGIO 

DCAP 

DCAG 


-MESH  MATERIAL  CONSTANT 
-MESH  WE I BULL  EXPONENT 
-TOTAL  FORCE  TRANSMITTED 
-REFERENCE  PLANE  RADIUS  OF 
-REFERENCE  PLANE  RADIUS  OF 


SPIRAL 

SPIRAL 


BEVEL 

BEVEL 


PINION  (IN) 
GEAR  (IN) 


-THE  LIO  LIFE  OF  THE  PINION  (CYCLES) 

-THE  LIO  LIFE  OF  THE  PINION  (HOURS) 

-THE  LIO  LIFE  OF  THE  GEAR  (CYCLES) 

-THE  LIO  LIFE  OF  THE  GEAR  (HOURS) 

-THE  DYNAMIC  CAPACITY  OF  THE  PINION  (LBS) 
-THE  DYNAMIC  CAPACITY  OF  THE  GEAR  (LBS) 
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FOR  -FORCE  ON  THE  PINION 

FE  -FORCE  ON  THE  GEAR 

REAL  NPi  NO,  MG,  MOl,  LPIO,  LOIO,  LPIOT.  LOIOT 
F1-.  5*F 

CBG-BASCAP!R1,  R2, PHE, FI. E) 

CALCULATE  LIFE  OF  GEAR  TEETH 

LPIOT- ( CBG/FOR ) **PG 
LCIOT— !CBC/FE )**PG 
VEG-1.  /EG 
VPG-1.  /PG 

CALCULATE  LIFE  OF  PINION  AND  GEAR 

LPIO— ( 1 . /NP)**VEG/MG/MG1*LP10T 
HP10=LP10*16666  666/SPEED2 
LG 1 0— ( 1 .  /NG)**VEG/MG1*LG10T 
HG 1 0— LG 10*1 6666  666/SPEED2 

CALCULATE  BASIC  DYNAMIC  CAPACITY  OF  PINION  AND  GEAR 

DCAP— ( ( 1.  /NP)**VEG/MG/MG1 )**VPG*CBG 
DCAG— ( (1. /NG)**VEG/MG1 >**VPG*CBG 
RETURN 
END 

SUBROUTINE  SPBVIN<NP,  NG,  AO,  PHE,  F,  PHSI.  ROT,  SPR,  THETA,  E,  EG,  PG, 
1PHE1,  PHSI 1 ,  THETA  1, CASEP. PTL, AP, BP,  ITYPEP 1 , NBP 1 , DPI, ACPI, AK1, 
2BDCAP1,  RFP 1 ,  EGP 1 ,  ITYPEP2,  NBP2,  DP2,  ACP2,  AK2,  BDCAP2,  RFP2,  EGP2, 
3CASEG,  GTL,  AG,  BG,  ITYPEG1,  NBG1,  DG1,  ACG1,  AK3,  BDCAG1 ,  RFG1 ,  EGG1 , 
4ITYPEG2,  NBG2,  DG2,  ACG2-  AK4,  BDCAG2,  RFG2,  EGG2,  MG,  GAMMA1 ,  GAMMA,  ZZ, 
5ZZ1,  DP,  DG,  RPD,  RP,  RGD,  RG,  HK,  AOG,  AOP,  HT,  BOG,  BOP,  PD, 

6ADJP1, ADJP2, ADJG1, ADJG2) 

SPIRAL  BEVEL  INPUT 

CHARACTER*?  DATAFILE 

INTEGER  NO, YES,  ANSWER,  CASEP,  CASEO,  PTL,  GTL 
REAL  NP, NG, MG,  NBP 1 , NBP2, NBG1, NBG2 
PARAMETER ( N0= ' NO  ' , YES=  '  YES ' ) 

P 1 1—3.  141592654 
WRITE! 1, 300) 

FORMAT!// '  SPIRAL  BEVEL  GEAR  UNIT  INPUTS'//) 

WRITE! 1, 999) 


3 


♦JJJ 

ijjl 


READ  ( 1 , 9'9 )  ANSWER 

IF ( ANSWER.  EQ.  NO) GO  TO  501 

WRITE(1. 502) 

FORMAT ( 'WHAT  IS  THE  NAME  OF  THE  INPUT  FILE') 
READ ( 1 ,  503 ) DATAF I LE 
FORMAT ( A ) 

0PEN(UNIT=55, FILE=DATAFILE, ST ATUS= 'UNKNOWN ' > 

NRE“55 

GO  TO  500 

NRE-1 

CONTINUE 

CALL  GEAR INP ( NRE,  NP,  NG,  AO,  PHE,  F,  PHSI,  ROT,  SPR, 
♦THETA,  E,  EG,  PG) 

CALL  GEAROUT (NP,  NG.  AO,  PHE,  F,  PHSI,  ROT,  SPR, 


♦THETA,  E,  EG,  PG) 

■jmm 

WRITEd,  1070) 

SKBb 

READ (NRE,  ♦ ) LL1 

IF( LL1 .  EQ.  1 ) G0T0500 

PHE1*PHE*P I I / 180. 

PHSI 1=PHSI^PI 1/180. 

■ 

TI*TI^ROT 

THETA 1 *THET A^P I I / 1 SO 

c 

$  j 

\v  C 

ENTERING  THE  VALUES  FOR 

C 

8 )  c 

WRITEd,  1074) 

CONTINUE 

CALL  CASEINP ( NRE, CASEP, PTL,  AP,  BP) 

CALL  CASEOUT( CASEP,  PTL,  AP,  BP) 

WRITEd, 1070) 

READ(NRE,  #)L1 
IF  (LI.  EQ.  1  )  G0T0600 
CONTINUE 
WRITEd,  1040) 

CALL  BEAR INP (NRE,  ITYPEP1,  NBP 1 ,  DP l , ACP 1 ,  AK1 , BDCAP1, RFP 1 , EOP 1 , ADJP 1 ) 
CALL  BEAROUT ( I TYPEP 1 , NBP1, DPI, ACPI, AK1, BDCAP1, RFP1, EOP 1,  ADJP 1 ) 
WRITEd,  1070) 

READ (NRE,  #)L2 
IF (L2.  EQ.  1  ) GCT060 1 
CONTINUE 
WRITEd,  1045) 

CALL  BEAR  INP  (NRE,  ITYPEP2,  NBP2,  DP2,  ACP2,  AK2,  BDCAP2,  RFP2,  E0P2,  ADJP2) 
CALL  BEAROUT  (  I TYPEP2,  NBP2,  DP2,  ACP2,  AK2,  BDCAP2,  RFP2,  E0P2,  ADJP2) 


WR I TE ( 1 , 1070) 
READ(NRE,  *)L3 
IF (L3.  EQ.  1  )G0T0602 


INPUT  THE  GEAR  AND  ITS  SUPPORTING  BEARINGS 


WRITE ( 1 i 1075) 

CONTINUE 

CALL  CASEINP (NRE, CASEG, GTL, AG, BG) 

CALL  CASEOUT (CASEG,  GTL,  AG,  BG) 

WR I TE ( 1 , 1070) 

READ(NRE, *)L4 
IFCL4.  EQ.  1 ) G0T0603 
CONTINUE 
WR I TE ( 1 , 1040) 

CALL  BEAR INP ( NRE,  ITYPEG1 ,  NBG1,  DG1,  ACG1, AK3, BDCAG1 , RFG1 , EGG1, ADJC1 ) 
CALL  BEAROUT ( ITYPEG1 , NBG1, DG1 , ACG1, AK3, BDCAG1.  RFG1.  EGG1,  ADJG1 ) 
WRITE(1,  1070) 

READ (NRE,  *)L5 

IF ( L5.  EQ.  1  ) G0T0&04 

CONTINUE 

WRITE( 1,  1045) 

CALL  BEAR INP (NRE,  ITYPEG2,  NBG2,  DG2,  ACG2, AK4, BDCAG2, RFG2, EGG2, ADJG2) 
CALL  BEAROUT ( ITYPEG2, NBG2,  DG2, ACG2,  AK4.  BDCAG2. RFG2,  EGG2,  ADJG2) 
WRITE ( 1, 1070) 

READ (NRE,  #)L6 

IF ( L6.  EQ.  1  )G0T0605 

CLOSE (55) 


CALCULATION  OF  GEAR  RATIO  AND  OUTPUT  SPEED 


MG=NG/NP 

SPEED2-SPEED/MG 


CALCULATION  OF  GAMMA 


GAMMA 1*ATAN(S IN ( THETA 1 )/ (MG+COS( THETA 1 ) ) ) 

GAMMA«GAMMA1*180.  /PI  I 

ZZ*THETA-GAMMA 

ZZ1=ZZ*PII/1S0 


CALCULATION  OF  PITCH  DIAMETER  OF  GEAR  AND  PINION 
AND  REFERENCE  PITCH  DIAMETER  OF  GEAR  AND  PINION 


% 

wys? 


*  O  kT  *w" \  A 
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TRANSMISSIONS!,'!!)  AKRON  UN IV  OH  DEPT  OF  MECHANICAL 
ENGINEERING  M  SAVAGE  ET  AL  APR  8b  NASA-CR-3967 
UNCLASSIFIED  NAG3-55  F/G  13/9  NL 


c - 

DP«(A0-F/2.  )*<2.  *SIN(GAMMA1>) 
DG«(A0-F/2.  )«(2.  *SIN( ZZ1 ) ) 
PD-NG/DQ 

RPD-DP*.  9/COS (GAMMAl) 

RP-DP*.  9 

RGD-DG*.  S/COS ( ZZ1 ) 

RG-DQ*.  9 

C - 

C  WORKING  DEPTH 

C - 

HK-1.  70  /PD 

C - 

C  ADDENDUM  OF  GEAR  AND  PINION 


AOG-O.  46/PD+O.  390/(PD*M0**2) 
AOP-HK-AOG 

0 - 

C  WHOLE  DEPTH 


IF<PD.  LT.  10.  ) GO  TO  90 

HT»1.  888/PD 

G0T091 

50  HT-1.  8B8/PD+.  009 

51  CONTINUE 

n _ _  M 

DEDENDUM  OF  THE  GEAR  AND  PINION 


BOG-HT-AOO 

BOP-HT-AOP 


BOP-HT-AO 

999  FORMAT ('DO  YOU  WISH  TO  USE  A  DATA  SET'/ 

* 'ANSWER  YES  OR  NO') 

1040  FORMAT < 'PINION  BEARING  #1 ' ) 

1045  FORMAT ( 'PINION  BEARING  #2') 

1046  FORMAT ( 'GEAR  BEARING  «1') 

1047  FORMAT ( 'GEAR  BEARING  #2') 

1070  FORMAT ( 'DO  YOU  WISH  TO  CHANGE  ANY  OF  THESE  PARAMETERS'/ 
* 'ENTER  1  TO  CHANGE') 

1074  FORMAT( 'PINION  MOUNTINO') 

1 075  FORMAT ( ' GEAR  MOUNT I NG ' ) 

99  FORMAT (1A4) 

RETURN 

END 


SUBROUTINE  SPBVOT<PD,  PHE,  PHSI,  SPR,  F,  AO.  SI.  SOF.  ROT,  TI.  TOF.  THETA 
1NP,  GAMMA,  DP,  RPD,  AOP,  BOP,  PD, 

2PXP,  PYP,  PZP,  TOTFOR,  DCAP,  CASEP, AP, BP. 

3R1XP, R1YP, R1ZP,  TOFORP1,  BDCAPIO, 

4R2XP. R2YP,  R2ZP,  T0F0RP2,  BDCAP20, 

9NG,  ZZ,  DG,  ROD,  AOO,  BOG, 

6PXG.  PYG,  PZO.  TOTFOR,  DC  AG,  CASEO,  AG,  BG, 

7R1X0. R1YO,  R1ZO,  TOFORG1,  BDCAGIO, 

8R2X0. R2Y0,  R2Z0,  T0F0RG2,  BDCAG20, 

9D1,  PI,  LI,  HI,  El) 


C  PRINT  OUT  RESULTS 

C - 


1000 


1200 


1202 


REAL  NP.  NO,  Dl<6>,  Pl<6>,  LI  (6),  HI  (6).  El  (6) 
INTEGER  CASEP. CASEG 
WRITEd, 1000) 

FORMAT </// 


1'  SPIRAL  BEVEL  GEAR  UNIT'///) 

WRITEd,  1200) PD,  PHE,  PHSI.  SPR,  F,  AO,  SI.  SOF 
*,  ROT,  TI,  TOF.  THETA 
WRITEd.  1209) 

WRITEd.  1 202 ) NP ,  GAMMA,  DP.  RPD,  AOP.  BOP,  PXP,  PYP,  PZP 
♦  ,  TOTFOR,  DC A P 


WRITEd,  1209) CASEP,  AP,  BP,  RIXP.  R1YP.  R1ZP 
*, T0F0RP1 , BDCAPIO, R2XP, R2YP, R2ZP, T0F0RP2,  BDCAP20 
WRITEd,  1210) 

WRITEd,  1202)NG,  ZZ.  DO,  ROD,  AOO.  BOO,  PXG,  PYG,  PZO, 
♦TOTFOR.  DC AG 


WRITEd.  1209) CASEO.  AG,  BO,  R1XG,  R1YG,  R1ZG 
♦  ,  T0F0RG1,  BDCAGIO,  R2XG,  R2YG,  R2ZG,  T0F0RG2,  BDCAG20 
FORMAT ( // '  GEAR  MESH  CHARACTERISTICS 
♦'  PITCH 

♦'  NORMAL  PRESSURE  ANGLE 
♦'  SPIRAL  ANOLE 

♦'  HAND  OF  THE  SPIRAL  OF  THE  PINION  GEAR 
♦'  FACE  WIDTH 
♦'  CONE  DISTANCE 

♦'  INPUT  SPEED  OF  THE  PINION  SHAFT 
♦'  OUTPUT  SPEED  OF  GEAR  SHAFT 
♦'  DIRECTION  OF  INPUT  SHAFT  ROTATION 
♦'  INPUT  TORQUE  OF  THE  PINION  SHAFT 
♦'  OUTPUT  TORQUE  OF  THE  GEAR  SHAFT 
♦'  ANGLE  BETWEEN  INPUT  AND  OUTPUT  SHAFT 
FORMAT < 

♦'  NUMBER  OF  TEETH 


'// 

F8.  2/ 
',  F8.  2/ 
',  F8.  2/ 
>',  F8.  3/ 
',  F8.  3,  ' 
',  F8.  3.  ' 
',  F10.  2, 
',  F10.  2, 
',  F8.  3/ 
',  F10.  2, 
',  FIO.  2. 

F8.  2,  ' 


IN'/ 

IN'/ 

’  RPM'/ 
r  RPM'/ 

’  IN-LB'/ 
'  IN-LB'/ 
DEG'/) 


,  F8.  2/ 


* ' 
*' 
*  7 
*' 
* 7 
* 7 
# 7 
« 7 
*7 
*• 


1203 


PITCH  ANCLE 
PITCH  DIAMETER 
REFERENCE  PITCH  DIAMETER 
ADDENDUM 
DEDENDUM 

FORCES  ON  A  TOOTH  IN  THE  MESH7// 
AXIAL  FORCE 
RADIAL  FORCE 
TANGENTIAL  FORCE 
TOTAL  FORCE 
'  DYNAMIC  CAPACITY  IN  FORCE 
FORMAT <  7  MOUNTING  CHARACTERISTICS' 


F8. 
7.  F8. 
7,  F8. 
',  F8. 


2. 

2. 

3, 

3, 


F8.  3, 


DEG'/ 

IN7/ 

IN7/ 

IN7/ 

IN7/ 


F9.  1, 
F9.  1, 
F9.  1. 
F9.  1, 
F9.  t. 


LB7/ 

LB7/ 

LB7/ 

LB7/ 

LB7/) 


// 


* 7 

TYPE  OF  MOUNTING 

7,  13/ 

*7 

DISTANCE  A 

',  F8.  3/ 

» 7 

DISTANCE  B 

7,  F8.  3// 

* 7 

AXIAL  LOAD 

7 ,  F10.  2, 

7  LBS7/ 

* 7 

RADIAL  LOAD 

7,  F10.  2, 

7  LBS7/ 

* 7 

TANGENTIAL  LOAD 

7.  F10.  2, 

7  LBS7/ 

* 7 

TOTAL  EQUIVALENT  FORCE 

7,  F10.  2, 

7  LBS7/ 

» 7 

BASIC  DYNAMIC  CAPACITY 

OF 

BEARING 

«1 

7,  F10.  1, 

7  LBS7// 

*7 

AXIAL  LOAD 

7,  F10.  2, 

7  LBS7/ 

*7 

RADIAL  LOAD 

",  F10.  2, 

7  LBS7/ 

* 7 

TANGENTIAL  LOAD 

F10.  2, 

7  LBS7/ 

* 7 

TOTAL  EQUIVALENT  FORCE 

',  F10.  2, 

7  LBS7/ 

#7 

BASIC  DYNAMIC  CAPACITY 

OF 

BEARING 

#2 

',  F10.  1, 

7  LBS7// 

* 7 

DYNAMIC  CAPACITY  IN  FORCE 

F9.  1,  7 

LB7/) 

1209 

1210 


PINION  CHARACTERISTICS  AND  MOUNTING 
GEAR  CHARACTERISTICS  AND  MOUNTING 


1220 


1211 


FORMAT (// 7 
FORMAT (// 7 
WRITEU, 1220) 

WRITEU,  1211) 

CALL  DPLHE<D1U>,P1U>.L1U).H1U).E1<1)) 

WR I TE ( 1 i 1213) 

CALL  DPLHE<Dl<2>. PI (2),  LI (2).  HI (2).  El (2) ) 

WRITE < 1. 1214) 

CALL  DPLHE(D1  (3>,P1(3>,L1(3)»H1(3)»E1(3)) 

WRITEU,  1217) 

CALL  DPLHE(D1<4),  Pl<4>,  Ll<4>,  HI  (4),  El<4)  ) 

WRITEU,  1218) 

CALL  DPLHE(D1  (5),  PI  (5),  LI  ( 5) ,  HI  ( 5 ) ,  El  (  5 )  ) 

WRITEU,  1219) 

CALL  DPLHE (D1(6),P1(6),L1 (6) , HI (6) , El (6) ) 

FORMAT <//// 

*'  DYNAMIC  CAPACITY  AND  LIFE  IN  TERMS  OF7/ 

*'  OUTPUT  TORQUE  AND  SPEED7//) 

FORMAT <  7  INPUT  PINION'/) 


V/) 

'//) 
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*jvww  n.* 


WWW 


1213  FORMAT (  '  INPUT  BEARING  #1  V) 

1214  FORMAT (  '  INPUT  BEARINQ  #2'/) 

1217  FORMAT ('  OUTPUT  GEAR ' / ) 

1218  FORMAT (  '  OUTPUT  BEARING  #17) 

1219  FORMAT < '  OUTPUT  BEARING  #2'/) 
RETURN 

END 


APPENDIX  D 


SYMBOLS 

Variables 

A  distance  from  gear  to  front  bearing  in  inches 

Aq  distance  from  apex  to  back  of  gear  along  pitch  ray  in  inches 

b  major  axis  contact  length  in  inches 

B  distance  from  gear  to  rear  bearing  in  inches 

Bc  back  cone  radius  in  inches 

B1  material  constant  in  psi 

C  dynamic  capacity  in  pounds 

D  gear  diameter  in  inches  or  dynamic  capacity  in  pound-inches 

0Q  distance  from  apex  to  center  of  gear  along  pitch  ray  in  inches 

f  face  width  in  inches 

F  bearing  force  in  pounds 

1  life  in  million  component  cycles 

L  life  in  million  transmission  cycles 

m  gear  ratio 

n  number  of  planet  gears 

N  number  of  teeth 

Pd  diametral  pitch  in  1.0/inches 

R  gear  radius  in  inches 


s 


probability  of  survival 
T\  input  torque  in  pound  inches 
Tq  output  torque  in  pound  inches 
VI  gear  load  in  pounds 

r  cone  angle  in  degrees 

A  angle  between  input  pinion  shafts  in  degrees 

E  shaft  angle  in  degrees 

Ip  curvature  sum  in  1.0/inches 

♦  pressure  angle  in  degrees 

<j<  spiral  angle  in  degrees 


Superscripts 

e  Wei  bull  slope 

p  load-life  factor 


Subscripts 

a  axial 

b  bearing 

bs  bearing  in  sun  rotation  units 

g  gear 

i  i 1 th  uni t 


n 


normal 


ne 


>5 


ne  equivalent  normal 

p  pinion  or  planet 

pr  planet  meshing  with  ring 

ps  planet  meshing  with  sun 

pt  planet  tooth 

r  ring  or  radial 

R  combined  radial 

rl  left  radial 

rr  right  radial 

s  sun 

t  tangential,  thrust  or  tooth 

T  combined  tangential  or  transmission 

tl  left  tangential 

tr  right  tangential 

1  first 

2  second 

3  third 

10  90  percent  reliability 


£■ 
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